1
while (($_ = $*IN.get) != 42) { say $_ }

1
2
3
4
5
6
7
8
9
####################################################################################################
## Program_Name     ## Sales_Channel_Merge.pl                                                     ##
## Written By       ## Martin Roberts                                                             ##
## Date             ## 5th January 2010                                                           ##
## Parameters       ##                                                                            ##
## Description      ## Checks the input directory for all Sales Channel files.  Converts each     ##
##                  ## file into a series of csv files for each worksheet, suffixed by a unique   ##
##                  ## identifier.  Concatenates each resulting file of the same class to         ##
##                  ## produce a series of uniquely named files for each worksheet that           ##
 ...

1
#!/usr/ucb/ksh

1
while (($_ = $*IN.get) != 42) { say $_ }

1
[0-9]+?(\.)\d+?9550(.)\d+?[06]{6}(.)\d+?[9]{5,6}(.)\d+?7{4}(.)\d+?[1-9]{67}(.)\d+?(.(?=5{3}1))\d+?061(.)3\8{3}3(.)\d+?9{2}8{3}(.)\d+?(.)(?=[7]{4})\d+

1
2
3
4
5
6
7
8
9
<?php
class Dog
{
  public $name;
  function DisplayDog()
        {
          print "Name".$name;
        }
}
 ...

1
2
3
4
5
6
7
8
9
<?php
class Dog
{
  public $name;
  function DisplayDog()
        {
          print "Name".$name;
        }
}
 ...

1
while (($_ = $*IN.get) != 42) { say $_ }

1
2
3
4
5
6
7
8
9
<?php
  $ho = fopen('php://stdout', "w");
 
 
fwrite($ho, sprintf("%d\n", "a"));
 
 
  fclose($ho);
  fclose($hi);

1
say 1;

1
2
3
4
5
6
7
8
9
use strict;
use warnings FATAL => 'all';
 
my $input = <STDIN>;
 
chomp $input;
 
if($input =~ #(\d+?)\/(\d+?)\/(\d+)#){
        for(my $i = $1;$i<=$1+1;$i++){
 ...

1
1 >>><< 4

1
print "test";

1
$t=();push@f,1,1;for(2..46){push@f,$f[$_-1]+$f[$_-2]}while($t--){$n=();say$f[$n+5]*11+$f[$n+5]%10}

1
$t=<>;push@f,1,1;for(2..46){push@f,$f[$_-1]+$f[$_-2]}while($t--){$n=<>;say$f[$n+5]*11+$f[$n+5]%10}

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
use Digest::SHA qw(sha256_hex);
 
$hash = "5bba96fbd6b5c39a087629f9efff7986a81963afaf7600a272989590aedb8244";
 
print "Hash vom Listing: ". $hash ."\n";
 
$i = 0;
 ...

1
2
3
<?
 echo strpos("test", "1");
?>

1
2
3
<?
 var_dump(strpos("test", "1");
?>

1
$_='987;s/^(d+)/$1-1/e;$1?eval:print"Just another Perl hacker,"';eval;

1
2
3
4
5
6
7
8
9
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
 ...

1
print %"racecar" || "racecar"% tnirp

1
2
3
4
5
6
7
8
9
use CGI ':standard';
use GD::Graph::bars;
use strict;
 
# The data, monthly values
my @data = (["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug",
             "Sep", "Oct", "Nov", "Dec"],
            [23, 5, 2, 20, 11, 33, 7, 31, 77, 18, 65, 52]);
# Create the canvas, then set labels and title
 ...

1
while (($_ = $*IN.get) != 42) { say $_ }

1
say 1

1
2
3
4
5
6
7
8
9
sub check {
        my ($p1, $p2) = @_;
        if (($p1 =~ /\d+/) && ($p2 =~ /\d+/)) {
                if ($p1 == $p2) {
                        print "\nSAME\n";
                }
                $sum = $p1 + $p2;
                print "Total = $sum\n";
                $mul = $p1 * $p2;
 ...

1
2
3
4
5
6
7
$integers = {1,2,3,4,5};
for @integers -> $i {
        if $i > 3 {
                break;
        }
        say $i;
}

1
say 1

1
2
3
4
5
6
7
8
9
M/#]X;6P@=F5R<VEO;CTB,2XP(B`_/B`@"CPA1$]#5%E012!H=&UL(%!50DQ)
M0R`B+2\O5S-#+R]$5$0@6$A434P@,2XP(%1R86YS:71I;VYA;"\O14XB"B`B
M:'1T<#HO+W=W=RYW,RYO<F<O5%(O>&AT;6PQ+T141"]X:'1M;#$M=')A;G-I
M=&EO;F%L+F1T9"(^"@H@("`)(`D@"B`@(`D@(`D)"0H\:'1M;"!X;6QN<STB
M:'1T<#HO+W=W=RYW,RYO<F<O,3DY.2]X:'1M;"(^/&AE860^("`@"0D)("`)
M"CQT:71L93Y'96]C86-H92!'0RXN+B!&)G5U;6P[<B!);F9O<FUA=&EK97(@
M+0DR/"]T:71L93X)(`D@(`H\+VAE860^("`@"0D@(`D@"CQB;V1Y/B`@(`D@
M"0D@(`H\:#$^1T,S,U9!0R!&)G5U;6P[<B!);F9O<FUA=&EK97(@+2`R/"]H
M,3X)"2`)"0D*(#QP/D1A(&)E:2`\80EH<F5F/2)H='1P.B\O8V]O<F0N:6YF
 ...

1
2
3
4
5
6
7
8
9
begin 644 info2.html
M/#]X;6P@=F5R<VEO;CTB,2XP(B`_/B`@"CPA1$]#5%E012!H=&UL(%!50DQ)
M0R`B+2\O5S-#+R]$5$0@6$A434P@,2XP(%1R86YS:71I;VYA;"\O14XB"B`B
M:'1T<#HO+W=W=RYW,RYO<F<O5%(O>&AT;6PQ+T141"]X:'1M;#$M=')A;G-I
M=&EO;F%L+F1T9"(^"@H@("`)(`D@"B`@(`D@(`D)"0H\:'1M;"!X;6QN<STB
M:'1T<#HO+W=W=RYW,RYO<F<O,3DY.2]X:'1M;"(^/&AE860^("`@"0D)("`)
M"CQT:71L93Y'96]C86-H92!'0RXN+B!&)G5U;6P[<B!);F9O<FUA=&EK97(@
M+0DR/"]T:71L93X)(`D@(`H\+VAE860^("`@"0D@(`D@"CQB;V1Y/B`@(`D@
M"0D@(`H\:#$^1T,S,U9!0R!&)G5U;6P[<B!);F9O<FUA=&EK97(@+2`R/"]H
 ...

1
2
3
4
5
6
7
8
9
program ASD;
 
var
        a, b : Integer;
        
begin
        ReadLn (a, b);
        WriteLn (a + b)
end.