Perl
定数の定義 #!/usr/bin/perl use constant PI => 3.14; print PI; Perl 目次 - How might I ...
ENVに格納されている foreach $key (keys %ENV) { print "$key:$ENV{$key}\n"; } Perl 目次 - How might I ...
外部コマンド(OSコマンド)はバッククオートでくくることで実行でき、 標準出力は「戻り値」、リターンコードは「$?」で取得できる。 open(OUT, "> tmp/a.txt"); print OUT "1,a"; close OUT; $exe_val1=`cat tmp/a.txt`; $ret_code1=$?; print("executed_v…
@ARGV にカ配列で格納される。 その1 #!/bin/perl ($a, $b) = @ARGV; print "arg1=$a\n"; print "arg2=$b\n"; その2 #!/bin/perl print "$ARGV[0]\n"; print "$ARGV[1]\n"; その3 #!/bin/perl $a = shift; $b = shift; print "arg1=$a\n"; print "arg2=$b…
サーバー管理的なことやってると、Perlさんと出会うことが多々あります。 書き方がたくさんあるのと、傍若無人に書かれてるPGが多いせいで嫌悪しがちですが、自分がある程度書けるようになれば、楽になることを信じて。 環境構築 perlの開発版をインストール…
なんかよくやるので、メモ。 #!/usr/bin/perl open(OUT, "> tmp/out.txt"); print OUT "1,a \n"; print OUT "2,b \n"; print OUT "3,c \n"; close OUT; open(IN, "< tmp/out.txt"); @line = <IN>; close IN; foreach (@line){ chop; #remove return code ($code,</in>…
@変数名で定義する。 # sample.1 @items = ("a","b","c","d"); # 1-100 まで定義 @items = (1..100); # sample.2 (quoated words. シングルクオートを省略できる) @items = ('a','b','c'); @items = qw(a b c); @items = qw /a b c/; 出力 print($items[0] .…
open(IN, "w.txt"); while(<IN>){ print; } close(IN);</in>
open(OUT,"> w.txt"); print OUT "a"; close(OUT);
http://perldoc.perl.org/perl.html
printf("%.2f",1.255); sprintf("%.2f",1.255);
コマンドラインから、pearの開発版モジュールをインストールしようとすると、失敗します。 D:\PHP>pear install HTTP_OAuth Failed to download pear/HTTP_OAuth within preferred state "stable", latest release is version 0.2.2, stability "alpha", use…