Help for this page

Select Code to Download


  1. or download this
    $belo = pack 'N', 10000; $behi = pack 'N', 20000; $ben = pack 'N', 123
+45;;
$belo lt $ben && $behi gt $ben and print 'Works';;
Works
  2. or download this
    $lelo = pack 'V', 10000; $lehi = pack 'V', 20000; $len = pack 'V', 123
+45;;
$lelo lt $len && $lehi gt $len and print 'Works';;
  3. or download this
    $bello = pack 'l>', 10000; $belhi = pack 'l>', 20000; $beln = pack 'l>
+', 12345;;
$bello lt $beln && $belhi gt $beln and print 'Works';;
...
$lello = pack 'l<', 10000; $lelhi = pack 'l<', 20000; $leln = pack 'l<
+', 12345;;
$lello lt $leln && $lelhi gt $leln and print 'Works';;