soxdial: improve --input/--stdin.

1 files changed, 9 insertions, 3 deletions

diff --git a/soxdial b/soxdial
index aa5469e..b1c6770 100755
--- a/soxdial
+++ b/soxdial
@@ -590,12 +590,18 @@ sub check_stereo {
 sub read_file {
 	my $file = shift;
 	my $result = shift;
+	my $filename = ($file eq '-' ? "stdin" : "file '$file'");
+
+	warn "$SELF: reading $filename.\n";
 
 	open my $fh, "<$file" or die "$SELF: $file: $!\n";
 	while(<$fh>) {
 		chomp;
-		push @$result, split "";
+		push @$result, split " ";
 	}
+
+	warn "$SELF: read " . @$result . " dial strings from $filename.\n" if $verbose;
+
 	close $fh;
 }
 
@@ -632,6 +638,8 @@ for(@ARGV) {
 	if($input_seen) {
 		read_file($_, \@newargv);
 		$input_seen = 0;
+	} elsif(/^--?v(?:erbose)?$/) {
+		$verbose = 1;
 	} elsif(/^--?stdin$/) {
 		read_file("-", \@newargv);
 	} elsif(/^--?i(?:nput)?=?(.+)?$/) {
@@ -674,8 +682,6 @@ for ($argc = 0; $argc < @ARGV; $argc++) {
 		$SOX = $ARGV[++$argc];
 		die "$SELF: missing argument for --sox.\n" unless defined $SOX;
 		warn "$SELF: sox executable set to '$SOX'\n" if $verbose;
-	} elsif(/^--?v(?:erbose)?$/) {
-		$verbose = 1;
 	} elsif(/^--?n(?:oexec)?$/) {
 		$verbose = 1;
 		$noexec = 1;