Prac 2 #2, Perl - rextester

Prac 2 #2

@a=("Prepadavatel","defined","Total","Perspective","Vortex","to","annoy","his","wife","Estudientike");
@b=('Prepadavatel defined',' Total Perspective','Vortex to','annoy his','wife Estudientike');
@c=qw/Prepadavatel defined Total Perspective Vortex to annoy his wife Estudientike/;
@d=qw@Prepadavatel defined Total Perspective Vortex to annoy his wife Estudientikeqw@;
print "Size:",scalar @a,"\n";
print "Size:",scalar @b,"\n";
print "Size:",scalar @c,"\n";
print "Size:",scalar @d,"\n";
push(@a,"Tinker");
push(@b,"Tailor");
push(@c,"Sailor");
push(@d,"Spy");
print "@a\n";
print "@b\n";
print "@c\n";
print "@d\n";
print "Size:",scalar @a,"\n";
print "Size:",scalar @b,"\n";
print "Size:",scalar @c,"\n";
print "Size:",scalar @d,"\n";
shift(@a);
shift(@a);
shift(@a);
shift(@b);
shift(@b);
shift(@b);
shift(@c);
shift(@c);
shift(@c);
shift(@d);
shift(@d);
shift(@d);
print "Size:",scalar @a,"\n";
print "Size:",scalar @b,"\n";
print "Size:",scalar @c,"\n";
print "Size:",scalar @d,"\n";
print "@a\n";
print "@b\n";
print "@c\n";
print "@d\n";
@e=("Holmes","Poirot","Bond","Hunt");
splice(@e,0,2,"Alistair");
print "REPLACED ARRAY IS: @e\n";
@merge=(@e,@a);
print "MERGED ARRAY IS: @merge\n";
@mergefinal=sort(@merge);
print "SORTED ARRAY IS: @mergefinal\n";


run \| edit \| history \| help	0