Navigation

Changeset 2339

Timestamp:

10/18/07 14:16:44 (1 year ago)

Author:

kmaclean

Message:

fix for Ticket #268: README sampling rate in kHz - made matching of Readme contents case insensitive

Files:

r2263	r2339
92	92	$line =~ s/\;//g; # remove semi-colons
93	93	$line =~ s/\.//g; # remove period
94		if ($line =~ /Sampling rate:/) {
	94	if ($line =~ /Sampling rate:/i) {
95	95	$line =~ s/ //g; # remove spaces
96	96	$line =~ s/-//g; # remove dashes
…	…
101	101	$samplingrate = $samplingrate . "kHz";
102	102	# print "Samplingrate:$samplingrate\n" if $debug;
103		} elsif ($line =~ /Sample rate format:/) {
	103	} elsif ($line =~ /Sample rate format:/i) {
104	104	$line =~ s/ //g; # remove spaces
105	105	$line =~ s/-//g; # remove dashes
…	…
108	108	$samplingrateformat = $samplingrateformat ."bit";
109	109	# print "Samplingrateformat:$samplingrateformat\n" if $debug;
110		} elsif ($line =~ /Pronunciation dialect:/) {
	110	} elsif ($line =~ /Pronunciation dialect:/i) {
111	111	($title, $dialect) =split(/\:/, $line);
112	112	$dialect =~ s/^ //g; # remove leading space
113	113	# print "dialect:$dialect\n" if $debug;
114		} elsif ($line =~ /File type:/) {
	114	} elsif ($line =~ /File type:/i) {
115	115	$line =~ s/ //g; # remove spaces
116	116	($title, $filetype) =split(/\:/, $line);