Filesystem.pm
- package Filesystem;
- use strict;
- sub filelist {
- my(@list,$i,$selectedFile,$tmp);
- opendir DIR, ".";
- @list = readdir DIR;
- do
- {
- foreach $i (0..$#list)
- {
- if(-f $list[$i]) {print "\n$i. $list[$i]";}
- }
- print "\n\nSelect file: ";
- $tmp=<STDIN>;
- $selectedFile = $list[$tmp];
- }while (!(-f $selectedFile));
- return $selectedFile;
- }
- sub getFile #arguments: (text to print, default file, create new file)
- {
- my($tmp,$filename);
- $filename = $_[1];
- print STDOUT "$_[0] [$filename]: ";
- $tmp = <STDIN>;
- chomp($tmp);
- if($tmp ne ""){$filename=$tmp;};
- if (($filename ne '') and ($_[2] eq 'yes')) {return $filename};
- if (!(-f $filename))
- {$filename = Filesystem::filelist();}
- return $filename;
- }
- sub winPath
- {
- my($tmp);
- $tmp = $_[0];
- $tmp =~s/\//\\/g;
- return $tmp;
- }
- 1