Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 1
 |
|< 1 ... 4 5 6 7 8 9 >| |  |
82 Einträge, 9 Seiten |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
![[Homepage]](/battie/theme/default/homepage.gif)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
print "Content-type: text/html\n\n";
my $file = $FindBin::Bin . '/Kunde';
open my $fh,'<',$file or die $!;
my @lines = <$fh>;
close $fh;
print scalar(@lines);
1
2
3
4
5
6
7
#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
print "Content-type: text/plain\n\n";
my $file = $FindBin::Bin . '/Kunde';
print "Suchpfad ist: $file\n";
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
use FindBin;
my @files;
find(sub{push @files,$File::Find::name if $File::Find::name =~ /Kunde$/},'/');
print "Aktueller Pfad: ",$FindBin::Bin,"\nTreffer:\n",join("\n",@files);
print "Content-type: text/plain\n\n";
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
print "Content-type: text/plain\n\n";
my $file = $FindBin::Bin . '/Kunde';
print "existiert";
unless(-e $file){
print " nicht";
}
|
|< 1 ... 4 5 6 7 8 9 >| | |
82 Einträge, 9 Seiten |
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
