get-by-line-number.perl

2 files changed, 62 insertions, 0 deletions

diff --git a/contrib/other-builds/extract-mixed-syntax/learnable/equal.perl b/contrib/other-builds/extract-mixed-syntax/learnable/equal.perl
new file mode 100755
index 000000000..e43b48a84
--- /dev/null
+++ b/contrib/other-builds/extract-mixed-syntax/learnable/equal.perl
@@ -0,0 +1,33 @@
+#! /usr/bin/perl -w 
+
+use strict;
+
+sub trim($);
+
+my $file1 = $ARGV[0];
+my $file2 = $ARGV[1];
+
+open (FILE1, $file1);
+open (FILE2, $file2);
+
+my $countEqual = 0;
+while (my $line1 = <FILE1>) {
+  my $line2 = <FILE2>;
+  if (trim($line1) eq trim($line2)) {
+    ++$countEqual;
+  }
+}
+
+print $countEqual ."\n";
+
+
+######################
+# Perl trim function to remove whitespace from the start and end of the string
+sub trim($) {
+  my $string = shift;
+  $string =~ s/^\s+//;
+  $string =~ s/\s+$//;
+  return $string;
+}
+
+
diff --git a/contrib/other-builds/extract-mixed-syntax/learnable/get-by-line-number.perl b/contrib/other-builds/extract-mixed-syntax/learnable/get-by-line-number.perl
new file mode 100755
index 000000000..f9ec9e39b
--- /dev/null
+++ b/contrib/other-builds/extract-mixed-syntax/learnable/get-by-line-number.perl
@@ -0,0 +1,29 @@
+#! /usr/bin/perl -w 
+
+use strict;
+
+binmode(STDIN, ":utf8");
+binmode(STDOUT, ":utf8");
+binmode(STDERR, ":utf8");
+
+my $fileLineNum = $ARGV[0];
+open (FILE_LINE_NUM, $fileLineNum);
+
+my $nextLineNum = <FILE_LINE_NUM>;
+
+my $lineNum = 1;
+while (my $line = <STDIN>) {
+  if (defined($nextLineNum) && $lineNum == $nextLineNum) {
+    # matches. output line
+    chomp($line);
+    print "$line\n";
+
+    # next line number
+    $nextLineNum = <FILE_LINE_NUM>;
+  }
+
+  ++$lineNum;
+}
+
+
+