- 论坛徽章:
- 307
|
- #!/usr/bin/perl
- use strict;
- use warnings;
- my ($m, $cnt) = (0) x 2;
- while(<DATA>){
- $cnt++ if(/\A\*+/);
- if($cnt == 2){
- print("$m\n") if($m);
- $cnt--;
- $m = 0;
- }
- $m++ if(/\AElapsed:\s*00:00:00\.00/);
- }
- __DATA__
- ****
- 0 rows updated.
- Elapsed: 00:00:00.00
- 1 row created.
- Elapsed: 00:00:00.00
- Commit complete.
- Elapsed: 00:00:00.01
- ****
- 16 rows updated.
- Elapsed: 00:00:00.00
- 1 row created.
- Elapsed: 00:00:00.00
- Commit complete.
- Elapsed: 00:00:00.00
- ****
- 32 rows updated.
- Elapsed: 00:00:00.00
- 1 row created.
- Elapsed: 00:00:00.00
- Commit complete.
- Elapsed: 00:00:00.00
- ****
- 16 rows updated.
- Elapsed: 00:00:00.00
- 1 row created.
- Elapsed: 00:00:00.00
- Commit complete.
- Elapsed: 00:00:00.01
- ****
- 32 rows updated.
- Elapsed: 00:00:00.00
- 1 row created.
- Elapsed: 00:00:00.00
- Commit complete.
- Elapsed: 00:00:00.00
- ****
- 16 rows updated.
- Elapsed: 00:00:00.00
- 1 row created.
- Elapsed: 00:00:00.00
- Commit complete.
- Elapsed: 00:00:00.01
- ****
复制代码 |
|