Perlでエディタもどきを作っていたが････

これはひどいｗ

#!/usr/bin/perl
use strict;
use warnings;

my $input;
my $filename;
my $argv=@ARGV;
my $i=0;



if($argv){
$filename=$argv;
}

else{
do{
print "Input file name:";
$filename=<STDIN>;
chomp $filename;
}until($filename);
}

open(FILE,">>$filename") || die "Open Error\n";

print "終了時はCtrl+Cでお願いします\n";

while(1){

open(FILE,">>$filename");

$i+=1;

print "$i:";

$input=<STDIN>;

print FILE "$input";

close(FILE);

}

スクリプトを書くぐらいにしか使えないな･･･
というか終了が強制終了って･･･
ファイルを開けたり開いたりしてるし

ppencodeという物を発見

どうやらこれはPerlのコードを
;や@,$,”,等を使わずに書くという代物だそうです
たとえばHello,world.を表示するのは

#!/usr/bin/perl -w
length q cmp lc and print chr ord uc q chop uc and print chr ord q ref or and print chr ord q else and print chr ord qw q le q and print chr ord q xor x and print chr oct oct ord uc qw q bless q and print chr ord uc q qw q and print chr ord q xor x and print chr ord q or no and print chr ord qw q lc q and print chr ord qw q die q and print chr oct oct ord uc qw q fork q

のように(あいもかわらずGeckoの仕様でMozilla系では型崩れかと)

Ruby版などもあるとか

興味ある方はppencodeでググって試て下さい
ちなみにニコニコでPerlで検索したら出てきました

む･･･

今Perlも勉強してるが

めんどくさい

use strict;とmy $hogeはエラーを防ぐためにわかるとして

変数なんかにつく$が邪魔だ

いちいちShift押しながら入力しなくてはならん

他にはせめてCと同じようにelsifをelse ifにしてほしかった

switch文がほしかった

しかも図書館にはPHP,Python,Rubyの本、とくに入門書は少ない

やっぱり買うべきか･･･

#!/usr/bin/perl
use warnings;
use strict;

print "Hello,world.\n";