Anonymous avatar Anonymous committed f324a99

initial commit

Comments (0)

Files changed (1)

+use strict;
+use warnings;
+sub croak { die "$0: @_: $!\n" }
+sub print_file {
+    my $file = shift;
+    open FILE, $file;
+    while (my $line = <FILE>) {
+        if ($line =~ m/\b[A-Z]\d{8}/) {
+            $line =~ s/\r?\n$//; # removes EOL; chomp does not have cross-platform support for EOL
+            $file =~ s/\.TXT$//; # to remove extension from the file name
+            print "$line     $file\n";
+        }
+    }
+sub cat {
+    while (my $file = shift) {
+        print_file $file;
+    }
+cat @ARGV;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.