-Original Message-
From: John W. Krahn [mailto:[EMAIL PROTECTED]
Sent: Monday, August 21, 2006 5:49 PM
To: Perl Beginners
Subject: Re: grab first item in every file
Brian Volk wrote:
Hi All~
Hello,
How can I grab the first item in every file and include in the first
Brian Volk wrote:
my ( $job, $truck );
while ( ) {
( $job ) = $ARGV =~ /(\d+)/ if $. == 1;
$truck = $1 if /\A\$(\d+)/;
# $job and $truck are working great!!
# next unless the next line ends w/ .pdf Correct?
next unless /\A((.+)\.pdf)\z/;
Sorry, I forgot
-Original Message-
From: John W. Krahn [mailto:[EMAIL PROTECTED]
Sent: Tuesday, August 22, 2006 1:42 PM
To: Perl Beginners
Subject: Re: grab first item in every file
Brian Volk wrote:
my ( $job, $truck );
while ( ) {
( $job ) = $ARGV =~ /(\d+)/ if $. == 1
Hi All~
How can I grab the first item in every file and include in the first
print statement below. The first item will always start w/ a $ and
will not match a key in %DIR_LIST. The other items in the file (.pdf's)
may or may not match a key in %DIR_LIST
Filename1: O20270.TXT
$432
Brian Volk wrote:
Hi All~
Hello,
How can I grab the first item in every file and include in the first
print statement below. The first item will always start w/ a $ and
will not match a key in %DIR_LIST. The other items in the file (.pdf's)
may or may not match a key in %DIR_LIST
It looks