File: leak.pl

package info (click to toggle)
libdate-manip-perl 6.98-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 14,928 kB
  • sloc: perl: 222,846; sh: 54; ansic: 26; makefile: 8
file content (18 lines) | stat: -rw-r--r-- 205 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/perl

$a1  = '(?<a>\d)';

$a2  = $a1;
#$a2 = '(?<b>\d)';

$b   = '\d';

$rx  = qr/(?:${a}${b}|${a2}:${b})/;

#$string = "12";
$string = "1:2";

while (1) {
   $string =~ $rx;
   $tmp = $+{a};
}