Hi,
perl5 (revision 5 version 8 subversion 5) on redhat fedora 3
I have been trying to create a list of home directories from a list.
The directory name comes straight from the list but I seem to be
getting a odd end of line character from each item on the list and
this gets added to the directory name. For example this is the output
from the script:
"aking "/home/afrood
: Bad file descriptorood
"aking "/home/aplatt
>From this it looks like the chomp is deleting the first character
from the next line.
And the directories appear like this:
drwxr-xr-x 2 root root 4096 Jun 1 09:50 afrood?
drwxr-xr-x 2 root root 4096 Jun 1 09:50 aplatt?
drwxr-xr-x 2 root root 4096 Jun 1 09:50 asimmen?
drwxr-xr-x 2 root root 4096 Jun 1 09:50 bbroll?
drwxr-xr-x 2 root root 4096 Jun 1 09:50 bjones?
I have edited the text file with ms notepad, lemmy and vim but none
made a difference.
I have noticed this before on this particular machine but I can't
find out why or how to get around this. If I omit chomp then I get a
newline in the file name instead.
Any ideas? Below is what I have been using. Thanx.
Dp.
#!/bin/perl
my $root = "/home/";
my $file = "home.txt";
open(FH,$file) or die "Can't open $file: $!\n";
while (<FH>) {
chomp;
my $n = "$root"."$f";
print "Making \"$n\"\n";
mkdir($n,0755) or warn "Can't make $n: $!\n";
chown $f,$n or warn "Can't chown $n: $!\n";
}
======= home.txt ========
afrood
aplatt
asimmen
bbroll
bjones
chi-keat
ckreuzer
cmolloy
cprice
dpaikkos
fsauze
fvieceli
gevans
gzuccotto
international
jbeaton
jkennedy
jprice
kdavis
lrobertson
mcutler
mmarten
mrossello
mstorey
nstroud
ppleasants
ptabarelli
rcaballero
rilari
rshah
rtaylor
scallender
sstone
syang
=================
~~
Dermot Paikkos * [EMAIL PROTECTED]
Network Administrator @ Science Photo Library
Phone: 0207 432 1100 * Fax: 0207 286 8668
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
