戯術者の日記

(charへのポインタで)

char *str;
str = "hoge";

このとき、strcpy(str, "hoge"); はできない。
ポインタが指しているアドレスが不定の場合に文字列をセットできないから…かな

(charの配列で)

char str[32];
strcpy(str, "hoge");

このとき、str = "hoge"; はできない。
str は配列名であって変数でないから…らしい
ただし、

char str[32] = "hoge";

は OK

int a[4] = {1, 2, 3, 4};
for (i = 0; i < 4; i++) {
	printf("&a[%d]: %p\n", i, &a[i]);   /* 各要素のアドレスを print */
}
printf("a: %p\n", a);                 /* 配列名をポインタとして print */

出力

&a[0]: 0x22efb0
&a[1]: 0x22efb4
&a[2]: 0x22efb8
&a[3]: 0x22efbc
a: 0x22efb0p

配列名は、その配列の先頭要素のアドレスを指している

1をセットすると、parseデータをメモリ上に保持する。デフォルトでは解析結果
のうちbody部(本文やマルチパートの添付ファイル)は即時ディスクに書き出し。
(perldoc では、巨大ファイルが添付された場合などでちょっとriskyとさ)

http://sasao.fusetsu.org/memo/perl.txt

sub func {
  require Path::Module;
  import Path::Module;
}

perl 5.005 でも OK

OLE::Storage_Lite が必要
Unicode::Map も必要ぽい

http://search.cpan.org/~luismunoz/NetAddr-IP-3.21/

use NetAddr::IP ;
 
my $ip = new NetAddr::IP "192.168.175.4/255.255.255.128" ;
 
print "The address is ", $ip->addr, " with mask ", $ip->mask, "\n" ;
print "nw    is ", $ip->network,     "\n" ;
print "bc    is ", $ip->broadcast,   "\n" ;
print "range is ", $ip->range,       "\n" ;
print "first is ", $ip->first->addr, "\n" ;
print "last  is ", $ip->last->addr,  "\n" ;
print "mask  is ", $ip->masklen,     "\n" ;
print "num   is ", $ip->num,         "\n" ;

便利!

my $hoge = $query->param('hoge');

で取得した場合、
?hoge=xx
は当然 xx
?hoge=
は空文字(defined)
なにもなければ
undef
になる

$SIG{CHLD} = 'IGNORE';

でよい
親プロセスは fork した子プロセスは完全にシカトするようになる。

open(F, "| cat");
print F "hogehoge\n";
close(F);

これで、"print hogehoge\n"をcatにパイプする

GetOptions("option:s" => \@array);

んで、

$ ./prog.pl --option foo --option bar --option baz

でもって
@array に ("foo", "bar", "baz") がはいる

miyazaki@nwmail:~/work$ cat -n pick.pl
     1  #!/usr/bin/perl
     2
     3  @list = <imail/queue/deferred/SMTP-Deliver/*/*/*/*-Control>;
     4
     5  print "hoge\n";
miyazaki@nwmail:~/work$ ./pick.pl
glob failed (child exited with status 1) at ./pick.pl line 3.
hoge
miyazaki@nwmail:~/work$ /usr/bin/csh
nwmail:~/work% echo imail/queue/deferred/SMTP-Deliver/*/*/*/*-Control
引数が長すぎます。
nwmail:~/work% echo $status
1
nwmail:~/work% setenv LANG C
nwmail:~/work% echo imail/queue/deferred/SMTP-Deliver/*/*/*/*-Control
Arguments too long
nwmail:~/work% echo $status
1
nwmail:~/work% /usr/local/bin/tcsh
nwmail:~% echo imail/queue/deferred/SMTP-Deliver/*/*/*/*-Control
^C
nwmail:~% echo imail/queue/deferred/SMTP-Deliver/*/*/*/*-Control | wc -l
     1
nwmail:~% echo imail/queue/deferred/SMTP-Deliver/*/*/*/*-Control | more
imail/queue/deferred/SMTP-Deliver/0/aaa0example.org/0/22518.9208984375-Control ...
(1行で出力されるよん)

use FindBin qw($Bin);
use lib $Bin;

ファイルの更新/参照/inode変更時刻とプログラム実行時間の差の日数を返す
time と stat[*] の差を 60*60*24 で割った値と同じ、かな

SYNOPSIS: find サブルーチンのリファレンス, ディレクトリ

(例1) 実行ファイル(-x)をprint

use File::Find;
find(\&wanted, $dir);
sub wanted {
  print "$File::Find::name\n" if -x $_;
}

(例2) 配列に入れる

use File::Find;
find(sub { push @files, $File::Find::name if -f }, $dir);

perl -ne 'foreach (split(//)) { printf("0x%X\n", ord $_) }' < jis.txt

テキストファイル jis.txt を1バイトずつ文字コードを16進で表記する。

5.002 だと、"!" とかのシェル上で扱う場合にエスケープが必要なものは、
perl でもエスケープが必要

@list = glob <\\!*>;

5.6 系だと要らないみたい。

utime atime_epoch, ctime_epoch, @filelist;

http://www.att.or.jp/perl/faq/faq5j.html#5-22

#!/usr/bin/perl
open(FILE, $ARGV[0]);
for (;;) {
  for ($curpos = tell(FILE); $_ = <FILE>; $curpos = tell(FILE)) {
    print;
  }
  select undef, undef, undef, 0.5;
  seek(FILE, $curpos, 0);
}

0.5sec の sleep は、まぁ好みで。ただし、sleep が入っていないとすさまじい
負荷になるので注意(笑)
File::Tail 使うよりラクかも。

login()の失敗などは、デフォルトで 'die' を行っているため、他の処理を行い
たい(ログファイルにイベントを出力して終了とか)場合は、ErrMode を変更す
る必要がある。
(A) new する際に、Errmode を指定する

$a = Net::Telnet->new(Timeout => 10, Errmode => "return");

(B) new した後に、Errmode を変更する。

$a->errmode("return");

以上で、

$return = $telnet->login('user', 'pass');

が失敗した際は、$return は undef になる。(成功時はErrmodeに関係なく1)

localtime 実行前に、

use POSIX 'tzset';
tzset();

を行っておく。
http://www.cygwin.com/ml/cygwin/2004-03/msg00866.html