Opened by cohama at 2014-04-09 11:05
User since
2011-08-16
102 Artikel
BenutzerIn
2011-08-16
102 Artikel
BenutzerIn
Hallo,
leider sehe ich gerade den Wald vor lauter Bäumen nicht.
Es geht darum, dass ich eine Text-Datei in ein Array einlese.
Danach kopiere ich zeilenweise das Array in eine Variable.
Im nächsten Schritt möchte ich die jeweiligen Daten der Zeile in unterschiedliche Variable speichern, damit ich diese weiter verarbeiten kann.
Datei:
Quellcode
leider sehe ich gerade den Wald vor lauter Bäumen nicht.
Es geht darum, dass ich eine Text-Datei in ein Array einlese.
Danach kopiere ich zeilenweise das Array in eine Variable.
Im nächsten Schritt möchte ich die jeweiligen Daten der Zeile in unterschiedliche Variable speichern, damit ich diese weiter verarbeiten kann.
Datei:
Code: (dl
)
1
2
3
4
5
6
7
8
3434 OUT 2014-04-08 07:17:43 16 25 3338762777 X unknown 615860
3434 OUT 2014-04-08 07:38:14 200 209 3338762777 X unknown 615860
3851 OUT 2014-04-08 10:11:22 104 118 3338768047 3338768047 unknown 3116
3851 OUT 2014-04-08 10:44:01 37 46 3338768047 3338359382 unknown 03094519504
3851 OUT 2014-04-08 11:46:40 53 85 3338768047 3338768047 unknown 765900
3851 OUT 2014-04-08 13:10:22 40 85 3338768047 3338768047 unknown 0309443582
3935 OUT 2014-04-08 08:33:48 8 21 3338757522 3338757522 unknown 459687
3965 OUT 2014-04-08 08:13:34 34 61 3338700192 3338700192 unknown 703553
Quellcode
Code: (dl
)
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
#!/usr/bin/perl
########################
# Modul Definition
#########################
use warnings;
use strict;
##########################
# Parameter Definition
#########################
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
my($date,$clock);
my ($File1);
my (@Array);
my ($cus_ID,$No_calls,$sum_call_time);
##########################
##########################
system("clear");
##########################
# Time-Calculation
##########################
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$date =sprintf("%04d-%02d-%02d",$year+1900,$mon+1,$mday);
$clock =sprintf("%02d:%02d:%02d",$hour,$min,$sec);
###############################
# File-Operation
$File1 = "./workspace/inputfile.log";
if ( -e $File1 ){
open (iFile,"<$File1") || die $!;
}
@Array = <iFile>; # Copy File 2 Array
while (@Array){
$ct = shift(@Array);
$cus_ID = $Array[0];
print "Customer-ID: $cus_ID\n";
}