FIND: Parameterformat falsch (parameter format not correct)

From: FMAS (massion_at_gmx.de)
Date: 02/28/04 

Date: 28 Feb 2004 01:02:14 -0800

I have downwloaded a professional script to do some tagging on a text.
This script should read files from a directory but I get an error
message:
FIND:: paramater format not correct

Here the critical parts of the script:

use Tk;
use Tk::BrowseEntry;
use Tk::Dialog;

if ($#ARGV < 2) {
    die "\nUsage: general_tagger.pl <input_dir> <output_dir>
<label_file>\n\nIMPORTANT: This script enables you to delete files in
the input directory\nwith the Skip button. Create a backup now!!\n\n";
}
else {
    $intextfiledir = "${ARGV[0]}\";
    $outtextfiledir = "${ARGV[1]}\";
    $labelfile = $ARGV[2];
}

(@infilelist) = read_filelist($intextfiledir);
($label_width, @labels) = read_labels($labelfile);

my $num_labels = $#labels + 1;
my $current_start = "0.0";
my $current_end = "0.0";
my $text_start = "0.0";
my $text_end = "0.0";

$current_file = "";
$fileonly = "";
$index = -1;
$num_files = $#infilelist + 1;
$done = $index + 1;

(...)

sub read_filelist {
    my ($dir) = @_;
    my ($file, @filelist);

    open(FIND, "find $dir | ") or die "Couldn't run find...\n";
    $file = <FIND>; # Get rid of bogus first line
    while ($file = <FIND>) {
        chop $file;

        next if ($file !~ /\w/);
        push(@filelist, $file);
    }
  
    return (@filelist);
}

The script was written in '99. I am running it on an XP computer. Is
this the reason for the error message?

Thanks in advance for any suggestion

Francois

Quantcast