Helop on file name display

[rajiv07]

Hi to all,

I have a script to list the file names in a directory .When i run this script locally (command prompt) it displays the exact file name (even though the file name has two spaces).But i upload the script into server (Browser) it shows trimmed file names(single space for double spaces).

I have checked both IE and Firefox it shows only single space file name instead on double space file name. Is it browser problem.

#!/usr/bin/perl
 
my @distinct_download_path=('c:/perl/examples/array');
 
for(@distinct_download_path){
next if /^(\s)*$/;
unless (opendir(DIR,$_)){ push(@download_invalid_directory,$_);}
 while($file=readdir(DIR)){
    next if/^(\s)*$/;
     next if(($file eq ".")||($file eq ".."));
    next if(-d $file); #next if $file is directory
 $_=~s/(.)\/$/$1/; #remove last /
 $file=$_.'/'.$file; #construct full path
 
 
 
push(@list_files_in_download_directory,$file);
 }
 
}
 
print "content-type:text/html\n\n";
 
print join("\n",@list_files_in_download_directory);

Script Output For local run
-------------------------------------
c:/perl/examples/array/data structure.pl
c:/perl/examples/array/dumper.pl
c:/perl/examples/array/rajiv gandhi.pl# here the file name actually has two spaces between rajiv and gandhi but it shows only one space.


Script Output For server run
-------------------------------------
c:/perl/examples/array/data structure.pl
c:/perl/examples/array/dumper.pl
c:/perl/examples/array/rajiv gandhi.pl

Please help me.

Regards
Rajiv

[numberwhun]

Hi to all,

I have a script to list the file names in a directory .When i run this script locally (command prompt) it displays the exact file name (even though the file name has two spaces).But i upload the script into server (Browser) it shows trimmed file names(single space for double spaces).

I have checked both IE and Firefox it shows only single space file name instead on double space file name. Is it browser problem.

#!/usr/bin/perl
 
my @distinct_download_path=('c:/perl/examples/array');
 
for(@distinct_download_path){
next if /^(\s)*$/;
unless (opendir(DIR,$_)){ push(@download_invalid_directory,$_);}
 while($file=readdir(DIR)){
    next if/^(\s)*$/;
     next if(($file eq ".")||($file eq ".."));
    next if(-d $file); #next if $file is directory
 $_=~s/(.)\/$/$1/; #remove last /
 $file=$_.'/'.$file; #construct full path
 
 
 
push(@list_files_in_download_directory,$file);
 }
 
}
 
print "content-type:text/html\n\n";
 
print join("\n",@list_files_in_download_directory);

Script Output For local run
-------------------------------------
c:/perl/examples/array/data structure.pl
c:/perl/examples/array/dumper.pl
c:/perl/examples/array/rajiv gandhi.pl# here the file name actually has two spaces between rajiv and gandhi but it shows only one space.


Script Output For server run
-------------------------------------
c:/perl/examples/array/data structure.pl
c:/perl/examples/array/dumper.pl
c:/perl/examples/array/rajiv gandhi.pl

Please help me.

Regards
Rajiv

I am really not sure myself. My first thought is maybe the browser is stripping the unnecessary white space. I see that in viewing your post with firefox that the extra space got stripped.

Again, not sure.

Regards,

Jeff

[KevinADC]

Web browsers collapse multiple spaces into one space. Look in the source code of the HTML document and you will see the extra spaces, but you will not see them in the browser. This is an html issue, not a perl issue. Use some HTML code that maintains text formatting (<pre>formatted text here</pre>) or use html entities to display the extra spaces: &nbsp;

Study up on HTML.

[rajiv07]

Thank You for your replies



Rajiv