I need a password seed script

first string
"face"
second string
"1234"

I need a perl scipt to return
f1a2c3e4

one letter of each followed by sedond letter of each followed by third letter of each followed by 4th letter of each.

TIMFOX123Asked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
torvirConnect With a Mentor Commented:
#!perl

print "First string: ";
chomp(my $s1=<STDIN>);
print "Second string: ";
chomp(my $s2=<STDIN>);
for (my $n=0; ($n<length $s1) || ($n<length $s2); $n++ ) {
      print substr($s1, $n, 1).substr($s2, $n, 1);
}
print "\n";
0
 
TIMFOX123Author Commented:
this does it !!!  

thx
0
All Courses

From novice to tech pro — start learning today.