|
Sujet : Extraction[BaSH] |
| burgergold |
en perl
Code :
- #!/usr/bin/perl
- use strict;
- open(FENT, '< /var/log/toto.log');
- my @lines = <FENT>;
- close FENT;
- foreach my $line (@lines) {
- if ($line =~ m/(\d{1,2}):(\d{2}):(\d{2}),(\d{2})/) {
- my $seconds = ($1 * 60 * 60) + ($2 * 60) + $3;
- print 'Magie!!! ' . $seconds . "\n";
- }
- }
|
|