take src and dest filename now from argv

pull/1/head
Daniel 2010-11-09 15:51:09 -08:00
rodzic 93b1941f30
commit e68efe6133
1 zmienionych plików z 4 dodań i 3 usunięć

7
convert_vlsift_to_lowesift.pl 100755 → 100644
Wyświetl plik

@ -1,9 +1,10 @@
#!/usr/local/bin/perl
$filename = $ARGV[0];
$filename_src = $ARGV[0];
$filename_dest = $ARGV[1];
open (DEST, ">$filename.key");
open (SRC, "$filename.key.tmp");
open (DEST, ">$filename_src");
open (SRC, "$filename_dest");
$resolution_line = `jhead $filename.jpg | grep "Resolution"`;
($res_x, $res_y) = $resolution_line =~ /: ([0-9]*) x ([0-9]*)/;