>> Thanks guys. With some help I've come up with this:
>>
>> $string = 'abc def ghi jkl mno pqr stu vwx yz';
>> if(length($string) = 34) {$var1 = $string.":";}
>
> '=' is assignment, '==' is test for numerical equality. Change the above
> line to:
> if( length($string) == 34 ) { $var1 = $string . ':' }
>
>> if(length($string) > 34) {
>> $string =~ s/\s//g;
>
> The above line deletes all of the spaces in $string. Is that what you want
> to do?
All fixed up except for this. How can I remove only the spaces at the
end of $var1 and $var2 if they exist?
- Grant
>> ($var1, $var2) = $string =~ /(.){35}(.){26}/;
>
> You should put your repeat specifiers inside the capture parentheses:
>
> ($var1, $var2) = ($string =~ /(.{35})(.{26})/);
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
