12 lines
206 B
Perl
Executable File
12 lines
206 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
my @args = @ARGV;
|
|
my $edgesFileName = $args[$#args];
|
|
$edgesFileName =~ s/\.bmp$/-edges.bmp/i;
|
|
|
|
system('./edge-detect', @args);
|
|
system('display', $edgesFileName);
|