Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl 

...
  $wire2{"a"}.=$x;
  print(" => $wire0 :: $wire1[1] :: $wire2{\"a\"} \n");
}
  2. or download this
    Adding 1  => 1 :: 1 :: 1 
Adding 2  => 2 :: 2 :: 12 
Adding 3  => 3 :: 3 :: 123
  3. or download this
    Adding 1  => 1 :: 1 :: 1 
Adding 2  => 2 :: 2 :: 2 
Adding 3  => 3 :: 3 :: 3