sng2c

원격으로 PAR을 실행하는 세가지 방법

# Test1.pm
package Test1;
hello{
    print "HELLO\n";
}

1. PAR Repository 이용.

sng2c

[sourcecode language="perl"]
 use 5.010;
 say "hello";
[/sourcecode]

sng2c

#!/usr/bin/env perl 

use strict;
use warnings;
use utf8;
use 5.010;
use YAML;

=pod

sng2c

sub index_array {
    my ($array, $key, $offset) = @_; 
    my $i = 0;
 
    for my $i ($offset .. $#$array) {
 
        my $is_eql = 1;
        for my $j (0 .. $#$key) {
            last if $i + $j > $#$array;
            if ($key->[$j] ne $array->[$i + $j]) {

sng2c

#!/usr/bin/perl
use utf8;
use LWP::UserAgent;
use Encode;
use AnyEvent;
binmode(STDOUT,":utf8");

my $cv = AE::cv;

my $only_biz = 1;

sng2c

use AnyEvent;
use EV;

my $cv = AE::cv;

my $t = AE::timer 2,0, sub{
    my $cv2 = AE::cv;
    my $cnt = 10;
    my $tot = 0;

sng2c

use AnyEvent;


my $cv = AE::cv;



my $t = AE::timer 2,0, sub{
    my $cv2 = AE::cv;
    my $cnt = 10;

sng2c

use AnyEvent;


my $cv = AE::cv;

my $t = AE::timer 2,0, sub{
    my $cv2 = AE::cv;
    my $cnt = 10;
    my $tot = 0;
    foreach(1..10){

sng2c

ack --perl --no-group --no-filename '^(use |requires [\x{27}"])' */Makefile.PL */lib/ */bin/ */examples/ */t/ | sort | uniq

sng2c

#!/usr/bin/perl
use strict;

use File::Find;
use Module::Which;
use Module::ExtractUse;

my %depend;
finddepth({wanted=>\&wanted,follow_fast=>1} ,@ARGV);
print join "\n",keys %depend;