Dermot Paikkos <[EMAIL PROTECTED]> coded:
[...]
> #!/bin/perl
>
> my $root = "/home/";
> my $file = "home.txt";
> open(FH,$file) or die "Can't open $file: $!\n";
>
> while (<FH>) {
> chomp;
s/\s*$//; # delete all whitespace at the end of the string
> my $n = "$root"."$f";
> print "Making \"$n\"\n";
# use qq operator to avoid ugly escaped quotes
print qq(Making "$n"\n);
HTH,
Thomas
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
