Hello list,
I added a -w and -e and both return false.
But the file is created and out there.
When I change the format to STDOUT it prints the format to the screec just
as it should. But it won't write the format to the file because it can't
find the file.
Any suggestions?
Thanks much!
Eric
#!/usr/bin/perl -w
use strict;
use warnings;
my ($name, $address, $city, $state, $zip);
my $filename = "c:\\labels.txt";
open(ADDRESSLABEL, ">>c:\\labels.txt") or
die "can't create";
open(ADDRESSES, "c:\\perl_prgm\\addresses.txt") or
die "cannot open addresses";
die "cam't find" if -e $filename;
while (<ADDRESSES>) {
chomp;
($name, $address, $city, $state, $zip) = split(/:/);
write ADDRESSLABEL;
}
print "Done!";
exit;
format ADDRESSLABEL =
===============================
| @<<<<<<<<<<<<<<<<<<<<<<<<<< |
$name
| @<<<<<<<<<<<<<<<<<<<<<<<<<< |
$address
| @<<<<<<<<<<<<<<<<, @< @<<<< |
$city, $state, $zip
===============================
.
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
