Jason> How can I reverse this ? ( Convert date/time format to UNIX timestamp )

There's a myriad of ways. Visit search.cpan.org and type "date" or
"time". The most flexible is probably Date::Manip, which can convert
"third friday in may 2005" to a date. :)

If you already have the y/m/d/h/m/s pieces, you can use the core modules
such as Time::Local to get back to an epoch.

--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +
<[Email Removed]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!

Let's see if we can fix it up.

Good start.

Why store the whole file in an array so you can later walk it line by
line? Let's just do all our processing right here, instead of the line
above. Here's how I would do it:

my %lp1;
while (<F>) {
my($uid, $department, $branch) = split /s*:s*/, $_;
$lp1{$uid} = { department => $department, branch => $branch };
}

Nothing below this line is needed, but I'll go through it with comments
anyway

This is the program's main problem. You're splitting the fields and
then throwing away all but the first one with your indexed list
assignment. That's why you're seeing uninitialized warnings, $lp1[1]
and $lp1[2] never receive a value. You could fix this by removing the
( ... )[0] around your split.

Hope that helps.

James

Hm, wouldn't this do the job?

s/s*(*{1,2})s*/ $1 /g;

HTH,
Thomas

my $address = 'xyz abc <[Email Removed]>';
my $name;
if ($address =~ /<([^@]+)@/) { $name = $1; }
else { die "Malformed address $address.n"; }

James

I think you'd be safe like this, except that if you have a lot of them
then you dont' know what the filehandle is going to be called. Here
you've used *Package::FILE, but there's no general way of getting to
that package name from any given filename. How about a hash of glob
references?

Here's a closure with a subroutine which keeps a list of handles for
each file it has already opened. The program just uses it to print
the next line from alternate files.

I hope this helps.

Rob


use strict;
use warnings;

line_from ('filea');
line_from ('fileb');

line_from ('filea');
line_from ('fileb');

line_from ('filea');
line_from ('fileb');

{
my %filehandle;
my $fh;

sub line_from {

my $file = shift;

$fh = $filehandle{$file};

unless (defined $fh) {
open $fh, $file or die $!;
$filehandle{$file} = $fh;
}

print scalar <$fh>;
}
}




--
To unsubscribe, e-mail: [Email Removed]
For additional commands, e-mail: [Email Removed]

Also remember to group reply so others can help and be helped.

Net::SFTP and Net::FTP are very different animals. The second is a base module used for plain old boring FTP which unless you have access to use it and a specific reason you shouldn't bother. In your case you want the former, the good news is if you have Net::SSH::Perl installed and working (which it sounds as if you do) then you should have no problem getting Net::SFTP to work, since it mainly relies on Net::SSH::Perl. I would suggest installing it and reading through its docs, it can be found on CPAN (http://search.cpan.org/~btrott/Net-SFTP-0.05/lib/Net/SFTP.pm).

Net::SSH::Perl is for sending multiple single commands (not a typo that is what I mean) to a remote shell session (or a single single command depending on the protocol (again that is what I mean)). And standard 'cp' is for doing "local" file system copies (not going to get into NFS, etc. debate). What you are looking for is sftp/scp which is implemented by Net::SFTP.

Conveniently Net::SFTP also provides a 'do_mkdir' method. A combination of the do_mkdir and put methods should fix you up.

A warning/caveat: Net::SFTP is significantly slower than standard openssh's 'scp' I suspect because the encryption/decryption is handled in Perl rather than C though mileage may vary. Other viable solutions are available if this becomes a problem, but they involve shelling out which is not nearly as elegant.

http://danconia.org

Off the top of my head:

s/printfs*(*(".*?").*?);/$1;/g

Anchoring the end of the pattern with ");" should
insure you against mismatches when there is a
function call instead of a variable in the argument
list. Still, the pattern fails for weird templates
like

printf("some "quoted" text" ();", foo, baz, bar );

If you want to have a bullet-prrof solution, you
should check out Text::Balanced, which takes care of
stuff like balanced quotes, brackets and such.

HTH,
Thomas

For starters, if you haven't already, read `perldoc CGI`. After that, I'd
recommend two other modules which I've found myself becoming excedingly
attached to, CGI::Session and HTML::Template. They may have a slightly
steep learning curve if you're new to perl, but the time savings should
make it well worth the effort.

--
=====================
Shaun Fryer
=====================
http://sourcery.ca/
ph:
=====================

Science is like : occasionally something useful
comes out of it, but that's not why we do it.
-: Richard Feynmann

And

use warnings;

These variables need to have better names so that it's more
obvious what they're for.

This is a lot clearer written:

$/ = qq(,""n)

It's simpler to assign slices of the hash. Also, using 'splice'
will remove the used elements from the @lines array.

@headers{ qw/ splnum photog title /} = splice @lines, 0, 3;
@headers{ qw/ credit caption / } =
shift (@lines) =~ /CREDIT:s+(.*/.*?LIBRARY)[sxA0]+(.*S)/;

Note the character class [sxA0] which is all whitespace characters
plus non-breakable space xA0 which appears between the credit and
caption fields of our data.

You have mutiple spaces in the 'caption' text, compress them to single
spaces like this if you need to:

$headers{caption} =~ s/s+/ /g;

All of the elements of @lines are now keywords, so there's no need
to start at offset 4.

Strip leading and trailing spaces from each element and push the
result directly into the hash field if the result has a non-zero
length:

foreach (@lines) {
s/^s+//;
s/s+$//;
push @{$headers{keywords}}, $_ if length;
}

There's not much wrong with this except that you're using $keyw_ref
which is left over from previous code instead of using the array
reference out of the hash. Also you'd have no need to comment each
block's closing brace if you indented the blocks. Try this:

while ( my ($k, $v) = each %headers ) {

print "$k => ";

if ( $k eq 'keywords' ) {
print "n $_" foreach @$v;
print "n";
}
else {
print "$vn";
}
}

I think that should do what you need.

I hope it helps,

Rob

True, but I was looking for a way to do this with a somewhat "buried" unless
keyword.

TA

-JW

__________________________________
Do you Yahoo!?
The New Yahoo! Shopping - with improved product search
http://shopping.yahoo.com

I think the author was trying to be cute... I got a chuckle out of it!

print +( qw(second first --> unless <--) )[ not $counter ];

Basically, you are creating an anonymous (right term?) array, and printing
the "not $counter"'th element. So if $counter is 0, you print "first",
otherwise you print "second". The other stuff in the array is there just to
satisfy the "buried" unless requested by the OP. However, as you see here,
it does not use the keyword "unless", just a string "unless". The only
elements that will ever be accessed are "second" and "first"...

It could also be written as:

print +( qw(second first) )[ not $counter ];

HTH
Alan

--
To unsubscribe, e-mail: [Email Removed]
For additional commands, e-mail: [Email Removed]

BerkeleyDB.xs:74:2: #error db.h is from Berkeley DB 1.x - need at least
Berkeley DB 2.6.4

I'd go looking for that old db.h laying around somewhere.

Use the standard Cwd module.

I tried hacking the Makefile to replace /usr/include/db.h, the version
from Apple's perl install, with /sw/include/db4/db.h, the version
installed by Fink, which is presumably more up to date, but it hasn't
helped much. Make now succeeds, but make test fails as shown below.
Furthermore, the script I'm installing BerkeleyDB in order to run
doesn't find it at all, as also shown.

***make test output***

12-220-219-110~/.cpan/build/BerkeleyDB-0.24% make test
PERL_DL_NONLAZY=1 /usr/local/bin/perl "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/btree........dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/btree........dubious
Test returned status 0 (wstat 5, 0x5)
t/db-3.0.......dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/db-3.0.......dubious
Test returned status 0 (wstat 5, 0x5)
t/db-3.1.......dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/db-3.1.......dubious
Test returned status 0 (wstat 5, 0x5)
t/db-3.2.......dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/db-3.2.......dubious
Test returned status 0 (wstat 5, 0x5)
t/db-3.3.......dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/db-3.3.......dubious
Test returned status 0 (wstat 5, 0x5)
t/destroy......dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/destroy......dubious
Test returned status 0 (wstat 5, 0x5)
t/encrypt......dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/encrypt......dubious
Test returned status 0 (wstat 5, 0x5)
t/env..........dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/env..........dubious
Test returned status 0 (wstat 5, 0x5)
t/examples.....dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/examples.....dubious
Test returned status 0 (wstat 5, 0x5)
t/examples3....dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/examples3....dubious
Test returned status 0 (wstat 5, 0x5)
t/filter.......dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/filter.......dubious
Test returned status 0 (wstat 5, 0x5)
t/hash.........dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/hash.........dubious
Test returned status 0 (wstat 5, 0x5)
t/join.........dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/join.........dubious
Test returned status 0 (wstat 5, 0x5)
t/mldbm........skipped
all skipped: MLDBM is not installed on this system.
t/queue........dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/queue........dubious
Test returned status 0 (wstat 5, 0x5)
t/recno........dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/recno........dubious
Test returned status 0 (wstat 5, 0x5)
t/strict.......dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/strict.......dubious
Test returned status 0 (wstat 5, 0x5)
t/subdb........dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/subdb........dubious
Test returned status 0 (wstat 5, 0x5)
t/txn..........dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/txn..........dubious
Test returned status 0 (wstat 5, 0x5)
t/unknown......dyld: /usr/local/bin/perl Undefined symbols:
_db_create
_db_env_create
_db_strerror
_db_version
t/unknown......dubious
Test returned status 0 (wstat 5, 0x5)
FAILED--20 test scripts could be run, alas--no output ever seen
make: *** [test_dynamic] Error 2

***attempt to run POPFile***

POPFile Engine loading

Loading...
{core: config logger mq}
Can't locate BerkeleyDB.pm in @INC (@INC contains:
/sw/lib/perl5/5.6.0/darwin /sw/lib/perl5/5.6.0 /sw/lib/perl5/darwin
/sw/lib/perl5 /System/Library/Perl/darwin /System/Library/Perl
/Library/Perl/darwin /Library/Perl /Library/Perl
/Network/Library/Perl/darwin /Network/Library/Perl
/Network/Library/Perl .) at Classifier/Bayes.pm line 50.
BEGIN failed--compilation aborted at Classifier/Bayes.pm line 50.
Compilation failed in require at POPFile/Loader.pm line 356.
--
__ __
/ ) / )
/--/ __. __ ________ / / __. , __o _ _
/ (_(_/|_/ (_(_) / / <_ /__/_(_/|_/ <__</_/_)_

Thanks for the advice, I did reading the perl security and perl doc
and it gives me programming syntax.. I think my script program is not
the problem, there must be something else..

DBD::ODBC




--
To unsubscribe, e-mail: [Email Removed]
For additional commands, e-mail: [Email Removed]

--

Try

install DBD-Oracle

In general, you replace the '::' with '-' for ppm.

HTH

my ($me,
$next,
$ev_count,
$curr_true, # integer array created in insert
data
$prob_innoc,
$prob_guilt,
$hidden) = @_;
# The first time we view the Enter Probabilities
page (display)
# we have the option of specifing admissibility (the
probability of the evidence being admissible in court)
# and the probability the fact is true.
#
# When there are subsequent assertions or suspects,
there is no need to allow the user to change this
information
# so we surpress the text edit box.
#
my $bReadOnly = !$me->bFirstSuspect(); #
$me->{pass}==0 && $next==1; # Can the user change
this? Yes, if this is the first Suspect/Assertion.
my $t3 = $me->{admissibility};
my $admis = sprintf "%3d", $t3->[$ev_count];
print
($me->bShowAdmissibility()?(qq[
<TD ALIGN="CENTER" STYLE="font-family:serif;
font-size:18px; font-weight: bold;
background-color:#ffcc00">]
.($bReadOnly?qq[$admis <INPUT class=debug
READONLY TYPE=TEXT NAME=prob_admis$ev_count SIZE="2"
VALUE="$admis" />]:qq[<INPUT TYPE=TEXT
NAME=prob_admis$ev_count SIZE="2" VALUE="$admis" />])
."</TD>"):"");
print qq[
<TD ALIGN="CENTER" STYLE="font-family:serif;
font-size:18px; font-weight: bold;
background-color:#ffcc00">];
# older code: $me->{base_type}=~"Rank" ||
$me->{base_type}=~"RA" || $me->{base_type}=~"Compare
Assertions"
# old code: ($me->{base_type} ==
&case_constants::btCompareAssertions ||
$me->{base_type} == &case_constants::btRankSuspects)
if ($me->MultiSuspectCase() && $bReadOnly){
# No input box here!
my $t2 = @{$$curr_true}[$ev_count]; # This is so
wierd. Why do I need to explicitly cast it?
$t2 = sprintf "%3.3f", ($t2<=0?0:$t2);
my $t3 = qq[<INPUT class=debug TYPE=TEXT
NAME="prob_true$ev_count" VALUE="$t2" SIZE=2>];
print $t2.$t3;
# Why does not this concatenation work?
$$hidden = $$hidden.qq[n<TR
class=debug><TD>prob_true$ev_count</TD><TD>$t3%</TD></TR>n];
}
else {
# Input box: user can alter this
print qq[ <INPUT TYPE="TEXT"
ID="prob_true$ev_count" NAME="prob_true$ev_count"
SIZE="7" OnChange="form_field_OnChange(this);"
MAXLENGTH="6">%</TD> ];
}

print qq|
<TD ALIGN="CENTER" STYLE="font-family:serif;
font-size:14px;background-color:#cc9900">
<INPUT ID="prob_guilt$ev_count"
NAME="prob_guilt$ev_count" SIZE="7"
OnChange="form_field_OnChange(this);" |;
if ($me->{pass}!=1){
print qq|
VALUE="|.($prob_guilt?$prob_guilt:"").qq|" |;
}
print qq| MAXLENGTH="6">%</TD>
<TD ALIGN="CENTER" STYLE="font-family:serif;
font-size:14px;background-color:#cc9900">
<INPUT TYPE="TEXT" ID="prob_innoc$ev_count"
OnChange="form_field_OnChange(this);"
NAME="prob_innoc$ev_count" SIZE="7" |;
if ($me->{pass}!=1){
print
qq|VALUE="|.($prob_innoc?$prob_innoc:"").qq|"|;
}
print " MAXLENGTH=6>%</TD>n";
}


__________________________________
Do you Yahoo!?
Protect your identity with Yahoo! Mail AddressGuard
http://antispam.yahoo.com/whatsnewfree

No; &foo is a reference to the foo function, but &foo() is a reference
to the return value of the call to &foo().

--
Jeff "japhy" Pinyan [Email Removed] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]

Would I put this immediately after "use warnings;"?

__________________________________
Do you Yahoo!?
Protect your identity with Yahoo! Mail AddressGuard
http://antispam.yahoo.com/whatsnewfree

Would I put this immediately after "use warnings;"?

__________________________________
Do you Yahoo!?
Protect your identity with Yahoo! Mail AddressGuard
http://antispam.yahoo.com/whatsnewfree

--
To unsubscribe, e-mail: [Email Removed]
For additional commands, e-mail: [Email Removed]

_________________________________________________________________
MSN Messenger with backgrounds, emoticons and more.
http://www.msnmessenger-download.com/tracking/cdp_customize

Someone has saved you the trouble... There is a program called Quotefix
that will clean up your stuff and do the "bottom posting" as so many seem to
prefer here. Seems to work very well for 99% of the messages it encounters.

Outlook version
http://home.in.tum.de/~jain/html-data/soft...tlook-quotefix/

Outlook Express version
http://home.in.tum.de/~jain/html-data/software/oe-quotefix/

Look at perldoc CGI under "FETCHING THE PARAMETER LIST AS A HASH"

Thanks Alan. That sort of thing would be my goal, except that 'Quotefix'
has a memory leak problem and crashes even Windows XP after a few days'
run. In W9x/ME it's fatal after only a few hours because of the limited
virtual address space.

Rob

Well, if that is what you are looking for, I would suggest you take a
look at Mulberry. It can shift, unquote, requote and rewrap lines
for you. (As well as my favorite 'paste quoted'.) Just look under
the 'Draft' menu. Avalible for Mac, Unix(Linux and Solaris) and
Windows.

Daniel T. Staal

---------------------------------------------------------------
This email copyright the author. Unless otherwise noted, you
are expressly allowed to retransmit, quote, or otherwise use
the contents for non-commercial purposes. This copyright will
expire 5 years after the author's death, or in 30 years,
whichever is longer, unless such a period is in excess of
local copyright law.
---------------------------------------------------------------

Hmmm...seems like I was looking in the wrong place of the
documentation. Thanks.

-Dan

I would recommend against it, unless you are intending to
keep all your programs very small. Any change to basic
browser/interpreter functionality, or to essetial built-in
operators, constructs, system variables, etc., should really
be localized. You can do this very painlessly:

my $k = $q->param('xyz');
{
no warnings 'uninitialized';
print qq[ $k = $k ];
}

Note that I left the assignment line out of the anonymous
block. This is in case you want to use this value or lack
of same later in your script, as any variable declared
within the block disappears from view after it finishes.

Joseph

Good, then you'll see that $_ has file file name, and $File::Find::dir has
the directory name. As for $oldstring and $newstring, you can either put
them in global variables, or do something like:

find( sub { transfer($oldstring, $newstring) }, $path);

That arranges to pass $oldstring and $newstring to each invocation of
transfer.

HTH

A file's a file. Terms like "text" and "binary" are just conventions. To the
OS, a file's just a collection of bytes.

What were you expecting to be in the file?

Thanks everybody, the way I tried to make files to binary
format is just because I want to learn how to sysread and
syswrite. I suppose I can write some bytes anywhere I like,
without re-writing the whole file again...

So, for the advise of using "pack"... any example or hints ?
For what I am expecting to see in the content, I guess I would
see some monster chars I guess, at least not as is the content
itself.

Thanks in advise

Hi Joseph.

I agree wholeheartedly. Perl is already very flexible in the
DWIM department: it will allow both text concatenation and
arithmetic increment on an undefined value. I have always
been grateful for the, 'Are you sure you mean this?' that
'use warnings' gives. (I just wish that 'no uninitialised'
was also valid).

Rob

This might give you an idea:

To write:
#########################################
#!/usr/bin/perl
open(ZZ,"+>zz") or die "Can't open zz: $!";
binmode ZZ;

for(0..19){
$array[$_]= 2 * $_;
print "$array[$_] ";

$array1[$_]= pack ("L*",$array[$_]);

print ZZ $array1[$_];
}

close ZZ;
exit 0;
#########################################

To read:
########################################
#!/usr/bin/perl
use strict;
use warnings;

$/='undef';
my $in = shift || 'zz';
open (ZZ, "< $in") or die $!;
binmode ZZ;
my $file=(<ZZ>);
my @nums = (unpack "L*",$file);
print "@numsn";

close ZZ;
#######################################





--
Our body's 20 milligrams of beta radioactive Potassium 40
emit about 340 million neutrinos per day, which go at well-nigh
lightspeed to the ends of the universe!..even thru the earth.

Right, and as I'm about to show, it's the first argument to your AddUser()
function.

You don't use $user. Skipping ahead to the trouble-spot:

That should be $self->AddUser(split /,/)...

.... because if it isn't:

Then $self will be the first value from (split /,/), which is the login
name.

And since $self is a string, and strict is on, $self->{...} is an error.

--
Jeff "japhy" Pinyan [Email Removed] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]

[..]
I assume that you mean that the following is
in a separate Package:

wouldn't it be nice if that was say

$self->AddUser(split /,/);

That way when we get INTO the AddUser() method and
shift off the $self, we know which Self we are talking
about, rather than shifting off the first element in
the line we read from <USERLIST>, eh no?


ciao
drieux

---

Here is the problem. When @columns is empty, it returns undef, and you
can't do %{ +undef }. So, do this:

while (my $href = shift @columns) {
# then use $href->{...}
# or do:
my %hash = %$href;
...
}

But I'd just use $href.

--
Jeff "japhy" Pinyan [Email Removed] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]

A little of both maybe,

I gets lots of garbage at my address. The problem is the same with all the
lists I subscribe to, they have web archives. Which means evil robots
can go and harvest our email addresses. So it's not just this list it's
Anytime you have an email address on a website. Even smart robots can
figure out address that attempt to conceal them selves. Even lists that
remove emial addresses ccompletely can still be spammed quite easily.

HTH

Dmuey

It is annoying - we hates spam!

grrr as if i was not getting enoff already
if only work would let me become a spam cop then id get emm...

hum could we not get a nice topic prefix added to the list?
it would make it a lot easy to make mail filters that could kill all mail
going to this address, not from the list.?

humm guess i should just accept my fait at lest the spam im getting is just fraudulent
and not about prn

Ritchie

---
fnord
yes im a Concord Engineer, no it never flown!