I am having a problem with looping a string.
This is my code
my $string="ffmpeg -v 2 -i \"/home/mike/vcr58uc.avi\" -itsoffset -0.1
-i \"/home/mike/vcr58uc.avi\" -target dvd -y -s 352x288 -qscale 5 -bf
2 -g 15 -acodec mp2 -ac 2 -ab 64kk -me_range 63 -aspect 4:3 -map 1:0
-map 0:1 \"/home/mike/vcr58ucen.vob\"";
my $wrap='50';
my $count=0;
my $string1=$string;
my @string1=$string1;
my $str_length=length($string1);
print $str_length;
while ($count lt $str_length){
{my $line1=substr($string1,$count,$wrap);
my $len2;
if (rindex($line1,' ') ne -1){
$len2=rindex($line1,' ');
}
my $strin2=substr($string1,$count,$len2);
push (@wwl,$strin2);
$count=$len2;
}
print $count,"\n";
}
print $count,"\n";
$string=join("\n",@wwl);
print $string,"\n";
This code only runs once not any more
Any help appreciated
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
