Sorry, but your example is not clear. If you substitute all the "\" with "/" and then you print $ans, why I can't see any "/" in your output?
Update: hilitai is right: that can't be the output of the script you posted, for it doesn't compile. I tried it adding "my" before @lines and it works AFAICT.
sini@ordinalfabetix:~$ ./x.pl enter the path \home\sini\x.pl /home/sini/x.pl #!/usr/bin/perl # use strict; use File::Path; use File::Basename; print"enter the path\n"; my $ans=<STDIN>; #$ans=C:\Users\rak\Desktop\tax.txt chomp($ans); my $path= dirname($ans);#I dont have to use this I know.I am just che +cking here. my $file= basename($ans);#I dont have to use this I know. $ans=~ s/\\/\//gi;#All my file open statements worked well #with c:/b +la/bla instead of c:\bla\bla; print $ans; #to make sure that I am replacing all "\" with "/"; open(FH,"<$ans") or die $!; my @lines=<FH>; print "\n@lines-bla\n";#bla is to check the print statement:Just prin +ts bla there,not printing file contents; -bla sini@ordinalfabetix:~$
Rule One: "Do not act incautiously when confronting a little bald wrinkly smiling man."
In reply to Re^3: Read file contents
by psini
in thread Read file contents
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |