Opened by Gast at 2007-11-09 18:05
Ich krieg da leider ne fehlermeldung:
"Can't do inplace edit: E:/ is not a regular file at hello.cgi line 10"
Also ich weiß schon was das Problem is... nur wie behebe ich das?
Mein Code:
"Can't do inplace edit: E:/ is not a regular file at hello.cgi line 10"
Also ich weiß schon was das Problem is... nur wie behebe ich das?
Mein Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
my $string = '';
my $cdpath='E:/';
my $cdfiles;
find (sub{ $cdfiles.=do{ local ( @ARGV,$/ ) = $File::Find::name; <> }; },$cdpath);
for my $file2 ( $cdfiles )
{
$string .= do{ local ( @ARGV,$/ ) = $file2; <> };
print $file2;
}