Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 20
+8 replies![[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
use strict; use warnings; my $directory = '/path/to/dir'; opendir my $dirhandle, $directory or die $!; while( my $entry = readdir $dirhandle ) { next if $entry !~ /\w{3}\d{8}\.txt\z/; print "Dateiname: $entry\n"; # hier dann irgendwas mit der Datei machen. } closedir $dirhandle;
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/perl use warnings; use strict; my $verzeichnis = "C:\\Temp"; opendir(my $fhDir, $verzeichnis) or die $!; my @files = grep { $_ =~ m/^\w{3}\d{8}\.txt$/ } readdir($fhDir); closedir($fhDir) or die $!; for my $dateiEin (@files) { my $dateiAus = $dateiEin."neuerDateiname"; rename($dateiEin, $dateiAus); } # for
+5 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
my $directory = '/path/';
opendir my $dirhandle, $directory or die $!;
while( my $entry = readdir $dirhandle ) {
next if $entry !~ /(\w{3}\d{8})\.txt\z/;
my $id = $1; #ich speichere hier meine id um dann sie zu verwenden
open(FILE,$entry); # jetzt mache die datei auf
open(FULL, ">fulltexts/${id}_f.txt"); fürs schreiben öffnen
binmode(FULL, ":utf8"); #output in utf8
while ($line3 = <FILE>) {
chomp($line3);
$full = get $line3;
$full =~ s/(\<|\>|\&)//g; #substitute (<|>|&) for a valide XML file
print FULL $fulltext;
}
}
+4 replies
+3 replies
1 2 3 4 5
use Path::Class; my $full_path = Path::Class::File->new( $directory, $entry )->absolute; open my $fh, '<', $full_path->stringify or die $!; # weiter im Text
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
#!/usr/bin/perl use warnings; use strict; my $verzeichnis = "PFAD"; opendir(my $fhDir, $verzeichnis) or die $!; my @files = grep { $_ =~ m/^\w{3}\d{8}\.txt$/ } readdir($fhDir); closedir($fhDir) or die $!; for my $dateiEin (@files) { my $dateiAus = $verzeichnis."/".substr($dateiEin,0,- 4)."_f.txt"; open(my $fhEin, "<", $verzeichnis."/".$dateiEin) or die $!; open(my $fhAus, ">", $dateiAus) or die $!; binmode($fhAus, ":utf8"); #output in utf8 while(my $zeile = <$fhEin>) { chomp $zeile; # ... print $fhAus; # ... } # while } # for
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
