String question

[Santana]

Hei all,
i'am a newbie in PERL and i find a solution for this problem :

I have a string "xxxxxxx" , i want put ones("1") on left of string, if
this string dont have a length of 20 character.

Example :

if i have th string "HELLO" and woul like get this ;

"111111111111111HELLO"


How i can this ???



Thanks,
Paulito

 

[John W. Krahn]

Hei all,
i'am a newbie in PERL and i find a solution for this problem :

I have a string "xxxxxxx" , i want put ones("1") on left of string, if
this string dont have a length of 20 character.

Example :

if i have th string "HELLO" and woul like get this ;

"111111111111111HELLO"


How i can this ???

$ perl -le'
my $string = "HELLO";

print substr "1" x 20 . $string, -20;
'
111111111111111HELLO



John

 

[Mirco Wahab]

I have a string "xxxxxxx" , i want put ones("1") on left of string, if
this string dont have a length of 20 character.
if i have th string "HELLO" and would like get this ;
"111111111111111HELLO"
How i can this ???

Just by printing the proper count of '1's in front of the string:

...
$string = 'xxxxxxx';
...
$string = '1' x (20-length $string) . $string;


No rocket science required here ;-)

Regards

M.