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 about the newline, just change \z to $
next unless /\A((.+)\.pdf)$/;
which will match before the newline.
> my ( $key, $msds ) = ( $1, $2 );
>
> # nothing below here is working. Should at least print the else statement
> Right?
>
> if ( exists $DIR_LIST{ $key } ) {
> my $indy = 10;
> print "Job $job printing msds $msds to $indy on truck # $truck\n";
> }
> else {
> print "Job $job missing msds $msds\n";
> }
> }
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
