Opened by Rambo at 2005-03-09 00:21
User since
2003-08-14
803 Artikel
BenutzerIn
2003-08-14
803 Artikel
BenutzerIn
habe deins probiert das geht aber deins hat auch nur eine zeile.
ich habe jetzt mal ein test script gemacht
wenn man jetzt eine date erstellt file.txt
und dort z.B mal ein dir list rein schreibt wie
Dokumente und Einstellungen
Programme
TEMP
TEST
Util
Win32app
WINNT
dann passiert genau das was ich momentan als problem habe
wichtig ist wohl das es mehere zeilen sein müssen
das print @cli_str; in der sub next zeigt alle daten
aber in der data.txt steht nur eine zeile drin. :-(
danke das du / ihr mir helft sonst hätte ich hier aufgegeben!
ich habe jetzt mal ein test script gemacht
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
use strict;
use warnings;
my $cli = 'file.txt';
open (FILE,"<$cli") or die $!;
while (my $cli_str = <FILE>)
{
my @cli_str = ("$cli_str");
&next(@cli_str);
}
close FILE;
sub next
{
my (@cli_str) = @_;
print @cli_str;
open (IN, ">data.txt") or die $!;
print IN @cli_str;
close IN;
}
wenn man jetzt eine date erstellt file.txt
und dort z.B mal ein dir list rein schreibt wie
Dokumente und Einstellungen
Programme
TEMP
TEST
Util
Win32app
WINNT
dann passiert genau das was ich momentan als problem habe
wichtig ist wohl das es mehere zeilen sein müssen
das print @cli_str; in der sub next zeigt alle daten
aber in der data.txt steht nur eine zeile drin. :-(
danke das du / ihr mir helft sonst hätte ich hier aufgegeben!