pastebin

pastebin

Paste Search Dynamic
Recent pastes
bb aa
  1. #!/usr/bin/perl
  2.  
  3. my $aa='00';
  4. my $bb='10';
  5.  
  6.  
  7. foreach my $e ($aa .. $bb) {
  8.         print $e . " ";
  9. }
  10. print "\n";
  11.  
  12.  
  13. if ($bb > $aa) { print "b > a \n"; }
  14.  
  15. print $aa;print "\n";
  16. print $bb;print "\n";
  17.  
  18. foreach my $e ($aa .. $bb) {
  19.         print $e . " ";
  20. }
  21. print "\n";
  22.  
  23.  
Parsed in 0.005 seconds