|< 1 2 3 4 5 6 >| | 58 Einträge, 6 Seiten |
undef $/;
1
2
3
4
5
6
7
8
9
10
11
12
13
$quelle = $ARGV[0];
$x = $ARGV[0];
$x =~ s/(\w+)\.\w+/$1/;
$ziel = $x;
open (INPUT,"<$quelle") or die "konnte $ziel nicht oeffnen,$!\n";
undef $/;
open (OUTPUT,">$ziel.txt") or die "konnte $ziel nicht oeffnen,$!\n";
$_ = <INPUT>;
close (INPUT);
1 2 3 4 5 6
my $string = 'Hallo Welt'; $string = reverse $string; print $string,"\n"; my @array = (1 .. 10); print join " ", reverse @array;
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
#!/usr/bin/perl use strict; use warnings; my $input = 'file.txt'; my $output = 'out.txt'; open my $in, '<', $input or die $!; open my $out, '>', $output or die $!; while( my $line = <$in> ){ if( $line =~ /Sachnummer: (\d+)/ ){ print $out $1,"\n"; } } close $out; close $in;
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
23.05.2007 13:11:11 UUT: MSA16_92 Start Test: T1_KENN.CBT
=============================================================================
23.05.2007 13:11:11 Start Test FRAGE_BARCODE
13:11:14 PASS
23.05.2007 13:11:14 Start Test BARCODE
Sachnummer: AATHD73141.087
Kundennummer: 12345
Flexnummer: 95.0038.9975
13:11:14 PASS
23.05.2007 13:11:14 Start Test TCK_4M
13:11:14 PASS
23.05.2007 13:11:14 Start Test D151_LU
Schiebekette defekt (IrShift)
unregelm&âáig, beginnend bei D111
Verbindung zwischen D111(TDO) und D160(TDI) pr&Âfen
13:11:14 FAIL
Bitte pruefen Sie folgende Punkte bei einem Schiebekettenfehler : !!
- Schalterstellung "Rest"
- Resetknopf gedrueckt, wenn SW geladen wurde
===========================================================================
13:11:14 F A I L
=============================================================================
1
2
3
4
{@BATCH|AATHD73141||GOEPEL_BSCAN||KDSNR:12345|ICT||PB/PL_P|uqm161|||
{@BTEST|9500389975|01|070523131111|||||n|n|070523131114||1|
{@RPT|Faild}
{@RPT|Schiebekette defekt (IrShift) unregelm&âáig, beginnend bei D111 Verbindung zwischen D111(TDO) und D160(TDI) pr&Âfen}
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
# !bin\perl\
# AS 31.05.07
$quelle = $ARGV[0];
$x = $ARGV[0];
$x =~ s/(\w+)\.\w+/$1/;
$ziel = $x;
#~~~ Datei einlesen und TXT-Datei erzeugen ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
open ($INPUT,"<$quelle") or die "konnte $ziel nicht oeffnen,$!\n";
undef $/;  
;  
; # bringt die Datei ins Skalare, ist somit leichter zu suchen
open (OUTPUT,">$ziel.txt") or die "konnte $ziel nicht oeffnen,$!\n";
# Ãbergabe von der Input-Datei in $_
$_ = <$INPUT>;
close ($INPUT);
# damit man später in dieser suchen kann
#~~~ Ende ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#~~~ Einlesen von Seriennummer, Sachnummer, Datum (Start und Ende), Kundennummer ~~~~~~
# Sachnummer in $sachnummer speichern
($sachnummer) = /Sachnummer:\s(\w+)/sm;
($kundennummer) = /Kundennummer:\s(\w+)/sm;
($serien_nr) = /Flexnummer:\s(\d{2}.\d{4}.\d{4})/sm;
# wie bei der Sachnummer
@sd = $serien_nr =~ /(\d{2}).(\d{4}).(\d{4})/gs;
$seriennummer = $sd[0].$sd[1].$sd[2];
($startdate) = /(\d{2}.\d{2}.\d{4} \d{2}:\d{2}:\d{2}) /sm;
# wie bei der Sachnummer
@y = $startdate =~ /(\d{2}).(\d{2}).\d{2}(\d{2}) (\d{2}):(\d{2}):(\d{2})/gs;
$starttest = $y[2].$y[1].$y[0].$y[3].$y[4].$y[5];
#~~~ Ende ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#~~~ Ausgabe in Textdatei~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if (grep (m/F A I L/, $_)) &nb
sp; &nb
sp; # sucht nach FAIL in $_ (enthält den Inhalt des Dokuments)
{
$status = "01";
$result = "Faild";
($endedate) = /(\d{2}:\d{2}:\d{2} F A I L)/sm;
@z = $endedate =~ /(\d{2}):(\d{2}):(\d{2})/gs;
$endetest = $y[2].$y[1].$y[0].$z[0].$z[1].$z[2];
#($fehler) = /PASS\s(w+)\sFAIL/gsm;
}
else
{
$status = "00";
$result = "Passed";
($endedate) = /(\d{2}:\d{2}:\d{2}\sP A S S)/sm;
@z = $endedate =~ /(\d{2}):(\d{2}):(\d{2})/gs;
$endetest = $y[2].$y[1].$y[0].$z[0].$z[1].$z[2];
}
print OUTPUT "{\@BATCH|$sachnummer||GOEPEL_BSCAN||KDSNR:$kundennummer|ICT||PB/PL_P|uqm161|||\n";
print OUTPUT "{\@BTEST|$seriennummer|$status|$starttest|||||n|n|$endetest||1|\n";
print OUTPUT "{\@RPT|$result}\n";
#print OUTPUT "{\@RPT|$fehler
#~~~ Ende ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
close OUTPUT;
# --> END of Code
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
#!/usr/bin/perl use strict; use warnings; my $input = $ARGV[0]; my %map = ( 'F A I L' => ['faild','01'], 'P A S S' => ['passed','00'], ); my @parts; { # lese Datei in Bloecken ein. Ein Block wird von # einer Leerzeile abgeschlossen local $/ = "\n\n"; open my $fh, '<', $input or die $!; @parts = <$fh>; close $fh; } my ($day,$month,$year,$start) = $parts[0] =~ /^(\d+)\.(\d+)\.(\d+)\s*(\d+:\d+:\d+)/; my ($kundennummer) = $parts[1] =~ /Kundennummer:\s*(\d+)/; my ($sachnummer) = $parts[1] =~ /Sachnummer:\s*(\w+)/; my ($flexnummer) = $parts[1] =~ /Flexnummer:\s*(\d+)/; my ($uhrzeit, $result) = $parts[-1] =~ /(\d+:\d+:\d+)\s*((?:\w\s){3}\w)/; my $fehler = join " ", split /\n/, $parts[3]; my ($res,$status) = @{$map{$result}}; my $starttest = sprintf "%02d%02d%02d%02d%02d%02d", $year, $month, $day, split /:/,$start; my $endetest = sprintf "%02d%02d%02d%02d%02d%02d", $year, $month, $day, split /:/,$uhrzeit; print "{\@BATCH|$sachnummer||GOEPEL_BSCAN||KDSNR:$kundennummer|ICT||PB/PL_P|uqm161|||\n"; print "{\@BTEST|$flexnummer|$status|$starttest|||||n|n|$endetest||1|\n"; print "{\@RPT|$res}\n"; print "{\@RPT|$fehler}" if $fehler !~ /^\d/;
|< 1 2 3 4 5 6 >| | 58 Einträge, 6 Seiten |