Skip to content

Instantly share code, notes, and snippets.

@chadluo

chadluo/genLine.pl

Last active August 29, 2015 14:01
Show Gist options
  • Save chadluo/ed49067430a88e3ac9e1 to your computer and use it in GitHub Desktop.
Save chadluo/ed49067430a88e3ac9e1 to your computer and use it in GitHub Desktop.
Download ZIP
for 2911 ass2
Raw
genLine.pl
#!/usr/bin/perl
use strict;
use warnings;
my $lines = 15;
$lines = $ARGV[0] if (scalar @ARGV == 1);
for (my $i = 0; $i<$lines; $i++) {
print "Line between ".int(rand(20))." ".int(rand(20))." and ".int(rand(20))." ".int(rand(20))."\n";
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment