Please bottom post.... > > ok I can take some blame! : ) I made some changes and I am still not > getting the print message. >
You made *some* changes, but you still haven't listened to what Bob and I have said, and made the changes we have pointed out specifically. That is becoming tedious. I would suggest going back through the e-mails and re-reading every single statement made and see why your script still does not match what we have suggested. http://www.catb.org/~esr/faqs/smart-questions.html http://danconia.org > > ## Set pragmas > > use strict; > > my $foreigntapes="/usr/local/log/foreign_tapes.log"; > delete $ENV{'IFS'}; > local $ENV{'PATH'} = > "/usr/epoch/bin:/usr/epoch/EB/bin:/usr/bin:/usr/sbin:/bin:/sbin"; > > open (OUT, ">$foreigntapes") || die "could not open file:$!"; > my @ftapes = grep s/^barcode=//, `evmvol -w label_state=1`; > my $svsel = select; select OUT; $| = 1; > print OUT "@ftapes"; > if ( -s OUT ) { > print "file is greater than 0 bytes \n"; > } > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
