Crossfire Archive
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: CF: Problem with collect.pl

Okay, so now I decided to test it instead of doing what I thought would
work.  Trouble was that readdir returns . .. and .* files unlike the
previous logic.  also readdir returns just the filename so that must be
appended to the dir.  This returns same values as foreach $file (<$dir/*>)
for csh on solaris 2.6

    local( $tfile);
    opendir(THISDIR, $dir) || die "couldn't open $dir";
    local(@allfiles) = readdir(THISDIR);
    closedir(THISDIR);
    foreach $tfile (@allfiles) {
    next if $tfile =~ /^\./;
    $file = $dir."/".$tfile;

							sdw
[you can put yourself on the announcement list only or unsubscribe altogether
by sending an email stating your wishes to ]