http://qs321.pair.com?node_id=123546


in reply to Re: Re: convert windows path
in thread convert windows path

If I'm right in my guess about what you're trying to do, then the answer is "yes, CGI.pm does do it all for you". That's to say, if you're dealing with form input from a form that has a tag like <INPUT TYPE="FILE" NAME="FILENAME"> then if you do 
my $fh = param('FILENAME');
while (<$fh>) {
    do_stuff_with($_);   # manipulate the file line by line
}

[download]
CGI.pm will deal with the path in the appropriate way - at least, that's been my experience when receiving input from browsers on Windows systems and processing it on a Linux system.

(BTW you might want to use the upload() method, but as this comes only with later versions of CGI.pm I mention the old-fashioned way, in case you are stuck with an annoying ISP.)

CGI.pm does the thinking so you can spend more time drinking beer :)

§ George Sherston

Replies are listed 'Best First'.
Re: Re: Re: Re: convert windows path
by Anonymous Monk on Nov 06, 2001 at 15:15 UTC
    i've think i have confused the situation, the problem is some browsers submit the full path whereas some submit just the filename. when the full path is submitted i can't work out how to get the filename out. eg filename from c:\somedir\file.ext. perl doesn't let me search & replace those \ slashes when they are on their own.
[reply]
      If you're just trying to extract a file from a path then something like 
      $var =~ /([^\\\/]*)$/ and $file = $1

      [download]
      should work. (I'm sure that there's a FAQ on this). Or you might want to try one of the File::Path modules, but that's probably overkill.
[reply]
[d/l]
      So... what? you want to get a scalar var containing the filename? So you can print it out or something?

      If that's what you want, There's A Lot More Than One Way To Do It. Don't let anyone around here hear you say "Perl doesn't let me search and replace..." ! If anyone can search and replace it's Perl.

      Assuming you have 
      my $filepath = 'c:\somedir\file.ext'

      [download]
      and you want to get 
      $filename eq 'file.ext'

      [download]
      then 
      $filepath =~ /([\w|\.]*)$/;
my $filename = $1;

      [download]
      Oughta do it - i.e. capture the longest possible string at the end of the filepath that is either a word character (alpha-num or _) or a dot. Or if you think there might be non-word characters in the file name, $filepath =~ /([^\\|^\/]*)$/; - capture the longest string at the end that doesn't have either a "\" or a "/".

      I'm no regex guru, so there may be obscure pitfalls in either of these, or a neater way to do it... but that's what I'd do.

      Of course, I may have completely mis-understood your question again :)

      § George Sherston
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom