package FileNamePrep; use strict; use Exporter; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); $VERSION = 0.1; @ISA = qw(Exporter); @EXPORT = (); @EXPORT_OK = qw(promptfilename); %EXPORT_TAGS = ( DEFAULT => [qw(promptfilename)], Both => [qw(promptfilename)]); sub promptfilename { my $file; while(! $file){ $file=<>; chomp($file); $file =~s/^"(.+)"$/$1/; } return $file; } 1;
In reply to File call in windows. by Andrew_Levenson
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |