Help for this page

Select Code to Download


  1. or download this
    my $value = "1234";
( undef, $value ) = unpack "AA*", $value;
print $value, "\n";
  2. or download this
    my $value = "1234";
( undef, $value ) = split //, $value, 2;
print $value, "\n";
  3. or download this
    my $value = "1234";
$value = (split //, $value, 2)[1];
print $value, "\n";.
  4. or download this
    my $value = "1234";
$value = (unpack "AA*", $value)[1];
print $value, "\n";
  5. or download this
    my $data = "1234";
my $i = 0;
$data = join '', map { $i++ ? $_ : '' } split //, $data;
print $data, "\n";