Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
![[gelöst]](/battie/theme/default/icons/tick.png "gelöst"){kind=icon}
+16 replies![[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
use strict;
use warnings;
my (@files)=();
my $m;
my $name;
opendir DIR,'C:\Desktop\Plots\Abflusswerte';
@files = readdir(DIR);
closedir(DIR);
open(Out,">>hq_regio_neu.txt");
foreach $m (@files){
open(IN,$m);
while(<IN>){
print Out $_ ;
}
}
+4 replies![[Homepage]](/battie/theme/default/homepage.gif)
WasIsteinLexikalischerFileHandleWie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
use strict; use warnings; my $dir = 'C:\Desktop\Plots\Abflusswerte'; opendir my $dh, $dir or die $!; # keine verzeichnisse my @files = grep { -f "$dir/$_" } readdir $dh; closedir $dh; open my $out, ">>", "hq_regio_neu.txt" or die $!; foreach my $file (@files) { open my $fh, "<", "$dir/$file" or die $!; while (<$fh>) { print $out $_; } }
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+2 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
open($in,$m);
while(<$in>){
print $out $_ ;
open($in,$m) or die "Datei $m kann nicht geöffnet werden $!";
open($in,"<",$m) or die "Datei $m kann nicht geöffnet werden $!";
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
#!/usr/bin/perl use strict; use warnings; use File::Spec; my $dir_name='C:\Desktop\Plots\Abflusswerte'; my $file_out='hq_regio_neu.txt'; opendir( my $DIR,$dir_name) or die("ERROR open dir $dir_name ($!)\n"); my @files = readdir($DIR); closedir($DIR); open(my $OUT,'>>',$file_out) or die("ERROR open file $file_out ($!)\n"); for my $file_name (@files) { my $file_path=File::Spec->join($dir_name,$file_name); if(open(my $IN, '<', $file_path)) { while(my $line=<$IN>) { print $OUT $line; } close($IN); } else { warn("ERROR open $file_path ($!)\n"); } }
PerlTutorials.
+8 replies
+6 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+5 replies
+4 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+3 replies
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/perl use strict; use warnings; use IO::File; if(not @ARGV){ print qq(use $0 file1 file2 ...\n); } else{ my $fh = IO::File->new; $fh->open("fsum.txt", O_CREAT|O_RDWR|O_TRUNC) or die "Kann Datei 'fsum.txt' nicht anlegen, $!"; while(<>){ $fh->print($_) } $fh->close; }
2011-11-29T15:45:28 TrommelwirbelIch bin sicher, wenn du so unerfahren und planlos programmierst wirst du dir Fehler erzeugen, die entweder gleich das Programm zum Scheitern bringen oder (ganz böse verdeckte Fehler!) irgendwann. Wenn du den einfachen Weg des geringsten Widerstands gehst, kommst du scheinbar schnell voran, lernst aber weniger aus deinen eigenen Fehlern.Habe bisl überlegt und festgestellt, dass ich das PRoblem ja auch dadurch lösen kann, wenn ich einfach den Perl Code in das gleiche Verzeichniss speichere.
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
![[Powered by Battie]](/battie/img/powered.png)
