Opened by frodus at 2004-01-14 18:33
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
*g*
Soviel zur vorausschauenden Programmierung. ;)
Nebenbei bemerkt: Was soll das denn?
Du startest 520 mal ein externes Programm und oeffnest eine Pipe, die du nie benoetigst.
Wenn du wirklich die Funktion von touch benoetigst (dazu haben wir ja gerade einen anderen Thread), dann reicht ja ein
system ("touch ...") == 0 or die "...".
Ansonsten vielleicht sowas wie
als Emulation. (Achtung, utime() mit undef erst ab Perl 5.7.2! )
Soviel zur vorausschauenden Programmierung. ;)
Nebenbei bemerkt: Was soll das denn?
Code: (dl
)
1
2
3
4
5
# Create the files
for (my $i = 0; $i < 520; $i++ ) {
open(TOUCH, "touch cb$i.txt|") or die "could not touch the file $i";
close(TOUCH);
}
Du startest 520 mal ein externes Programm und oeffnest eine Pipe, die du nie benoetigst.
Wenn du wirklich die Funktion von touch benoetigst (dazu haben wir ja gerade einen anderen Thread), dann reicht ja ein
system ("touch ...") == 0 or die "...".
Ansonsten vielleicht sowas wie
als Emulation. (Achtung, utime() mit undef erst ab Perl 5.7.2! )