Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- my $filename = shift;
- open (FILE, "<", $filename) or die "Nincs ilyen fajl: $filename : $! \n";
- my $whole_file;
- {
- local $/;
- $whole_file = <FILE>;
- }
- close(FILE);
- while ($whole_file =~ m#(0022..\n0112..\n0121..\n0220..\n0301..\n1003..\n1012..\n1030..\n1111..\n1120..\n1210..\n1300..\n2002..\n2011..\n2101..\n3100..\n)#sg) {
- print $1 . "\n";
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement