#!/usr/bin/perl # 大文字から小文字に変換 $data = "azAZ\r\n"; $data =~ tr/A-Z/a-z/; print $data; # 0-9 を A-I に変換 $cell = "5"; $cell =~ tr/0-9/A-I/; print "cell:" . $cell . "4\r\n"; #
#!/usr/bin/perl # print <<"EOF_NLIST"; ほげほげへろへろ EOF_NLIST # print <<'EOF_NLIST2'; foobarboo EOF_NLIST2 #