Hi all,

I am not some perl specialist and I have following code

#!/usr/bin/perl -w


print ( "Enter the name of new directory\n");

$dir=<stdin>;

mkdir ("$dir",0777);
chdir ("$dir");

print (" New directory is created and has name $dir\n");

print (" Enter the name of new file\n");

$name=<stdin>;

open ( $name, ">$name" );

print ("The fajl is opened and has name $name\n");



and it open directory and file file inside it....but in directory name there is tailing ? mark

like this:

directory_name?

Does anybody know what cause behaviour like this.
I really do not need tailing ? in directory name

Thanks in advance...

Hi

I am no good at all with Perl, but I think it's because when you read from stdin, the newline you press is included in the $name variable. Try adding "chomp($name)" after you have read it from stdin. This will remove the trailing \n.

As guttorm said, remove the trailing '\n' from the dir (and file) names.
Also, do NOT assume those operations work check the rtn status eg

mkdir($dir) or die "mkdir $dir failed: $!\n";

and so on ...