摘要：use v6; =begin pod @*ARGS 命令行参数， 不含脚本名 $*PROGRAM-NAME：当前运行脚本的相对路径 $*PROGRAM：当前运行脚本的文件名称 $*CWD：当前工作路径 $*IN：标准输入流(STDIN)，你可以使用$*IN.get来读取其中的一行 $*PID：当前进程PID $*EXECUTABLE-NA... 阅读全文

摘要：use v6; my $input = prompt '输入字符串:'; for $input.words -> $word { say $word; } for $input.comb -> $char { say $char; } #一个是词分隔， 一个是字母分隔 阅读全文

摘要：发现一个小站， 密码加密方式为： 0-9转化为()*+,-./ ! a-z或A-Z也将转化为其他字母等 这里只测试数字 比如密文是: +++++ 结果将为: 33333 下面是一个解密的小脚本: 运行结果: 阅读全文

摘要：#注入点: #https://fei.sg/shop/products.php?action=content&id=-23 #check mysql column_name of the sqlinject use HTTP::UserAgent; use URI::Encode; my $all_table = "db_zf,dg_activity,dg_activity_log,... 阅读全文

摘要：use v6; my $filename = 'data.txt'; my $data = slurp $filename; say $data; $data ~~ s/'4'/'ABC'/; say $data; spurt $filename, $data; say 'Done!'; 用slur 阅读全文

摘要：use v6; #perl6中读取文件方法 #:r 只读， :w 只写, ：rw 读写, :a 追加 my $fp = open 'filename.txt', :rw; for $fp.^methods -> $method { say $method; } #向文件写入， 可以用say或print或print或spurt $fp.say('hello, world'); $fp.pr... 阅读全文

摘要：use HTTP::UserAgent; my $ua = HTTP::UserAgent.new; say 'All method:'; say $ua.^methods; my %data = :cmd('whoami'); my $result = $ua.post('http://localhost/1.php', %data); say $result.content; 阅读全文

摘要：1 use v6; 2 my %ha= a=>1, :b, :!c; 3 say %ha; 4 say %ha; 5 #这里不能用%ha{a}, {a}表示调用a()函数了， 在perl6中， {}有特别函义 6 say %ha{'a'}; 阅读全文

摘要：1 use v6; 2 #如果参数是可选的， 可以在后面加个?后定义 3 sub Choo($x, $y?){ 4 say $x+$y; 5 } 6 Choo(1); 7 Choo(1,2); 8 #具名参数， 也就是字典形式的调用 9 sub Dit(:name($n), :age($a)){ 10 say $n,' is ', $a; 11 } 12 Dit(nam... 阅读全文

摘要：默认情况下， 参数不可更改，如果要更改， 可以加 is copy 或 is rw 又或者， 你用原来的参数名字， 像下面这样: is copy 跟 is rw的差别 is copy相当于copy一份， 而is rw， 相当于可读写， 参数还是原来的， 这可想像成C中的指针: 阅读全文

摘要：my %hash = (1,2,3,4); say %hash; my %hash2 = (a => 1, b => 2); say %hash2; my %hash3 = (:name('root'), :host('localost')); say %hash3; 阅读全文