Help for this page

Select Code to Download


  1. or download this
    my @lines = <DATA>;
my @matching_indices = grep $lines[$_] =~ /id:\s?\d/, 0 .. $#lines;
...
#Comment 2
*333 23 ss id: 002 aaa bbb ccc
*22 233333333 34432 233 44
  2. or download this
    #Comment
*333 23 ss id: 002 aaa bbb ccc
...
#Comment 2
*ss id addr id: 099 bbb ccc aaa
*22 233333333 34432 233 44