Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 1
 |
 |
8 Einträge, 1 Seite |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
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
$aktverz = $ARGV[0]; #aktuelles Verzeichnis
$ausgabedat = $ARGV[1]; #Ausgabe Datei
# Verzeichnis öffnen und Dateien nacheinander einlesen
if (chdir $aktverz) {
@alledateien = <*.txt>; #alle Textdateien im Verzeichnis ermitteln
}
else {
print "Konnte das Verzeichnis nicht finden!\n";
}
# Alle gefundenen Dateien öffnen
open (OUT, ">$ausgabedat") || die "Kann Datei nicht anlegen!"; # Ausgabe Datei erstallen
foreach $data (@alledateien) {
open (IN, "$data") || die "kann die Dateien nicht öfnnen"; #Dateien öffnen
@alles = <IN>;
}
foreach $data2 (@alles) {
print OUT $data2; #in Datei schreiben
}
close (IN);
close (OUT);
1
2
3
4
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
foreach $data (@alledateien) {
open (IN, "$data") || die "kann die Dateien nicht öfnnen"; #Dateien öffnen
@alles = <IN>;
}1
2
3
4
5
6
7
8
foreach $data (@alledateien) {
open (IN, "$data") || die "kann die Dateien nicht öfnnen"; #Dateien öffnen
while(<IN>) {
print OUT $_;
}
close IN;
}
close OUT;![[Homepage]](/battie/theme/default/homepage.gif)
1
2
3
4
5
6
7
8
#!/usr/bin/perl
use strict;
use warnings;
my ($dir,$file) = @ARGV;
system('cat $dir/*.txt > $file');
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
30
31
32
33
34
35
36
37
#! /usr/bin/perl
use warnings;
use strict;
my $aktVerz = $ARGV[0] or &PrintUsage();
my $ausgabedat = $ARGV[1] or &PrintUsage();
unless (opendir(DIR, $aktVerz)) {
die "Error: couldn't open dir '$aktVerz': $!\n";
} # unless
unless (open (OUT, ">", $ausgabedat)) {
die "Error: couldn't write to '$ausgabedat': $!\n";
} # unless
while (my $file = readdir(DIR)) {
my $fileName = "$aktVerz/$file";
next if -d $filename; # ueberspringe verzeichnisse
next unless $file =~ /\.txt$/; # ueberspringe nicht-txt
unless (open(FILE, "<", $filename)) {
warn "Error: couldn't open file '$filename': $!\n"; # oder die ...
} # unless
else {
print OUT $_ while <FILE>;
close (FILE);
} # else
} # while
closedir(DIR);
close(OUT);
# --------------------------------------------
sub PrintUsage {
require File::Basename;
my $bin = File::Basename::basename($0);
die "Usage: $bin verzeichnis ausgabedatei\n";
} # PrintUsage
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
###############################################################################
### PerlScript um *.txt Dateien zu einer zusammen zu f&¸hren ###
### Script by: H. Appel ###
### Datum: 19.08.2005 Version 0.01 ###
###############################################################################
$aktverz = $ARGV[0]; #aktuelles Verzeichnis
$ausgabedat = $ARGV[1]; #Ausgabe Datei
# Verzeichnis &ˆffnen und Dateien nacheinander einlesen
if (chdir $aktverz) {
@alledateien = <*.txt>; #alle Textdateien im Verzeichnis ermitteln
}
else {
print "Konnte das Verzeichnis nicht finden!\n";
}
# Alle gefundenen Dateien &ˆffnen
open (OUT, ">>$ausgabedat") || die "Kann Datei nicht anlegen!"; # Ausgabe Datei erstallen
foreach $data (@alledateien) {
open (IN, "$data") || die "kann die Dateien nicht &ˆfnnen"; #Dateien &ˆffnen
foreach $hm (<IN>){
print OUT $hm;
close (IN);
}
}
close (OUT);
use strict; anschauen...
|
|
8 Einträge, 1 Seite |
![[Powered by Battie]](/battie/img/powered.png)
