#!/usr/bin/perl require 'jcode.pl'; read(STDIN, $form_data, $ENV{'CONTENT_LENGTH'}); #フォームデータを受け取る # URLエンコードされたデータをデコード処理 ************************* @part = split('&', $form_data); foreach $i (@part) { ($variable, $value) = split('=', $i); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; # $value =~ s/\r\n/
/g; $value =~ s/[\r\n]/
/g; # $value =~ s/
$//g; $fdata{$variable}=$value; } # デコード処理終り ************************************************ print "Content-type: text/html", "\n\n"; $meibo= $fdata{'meibo'}; &jcode'convert(*meibo,'euc'); $spcnum= $fdata{'spcnum'}; $char= $fdata{'char'}; $i= 0; foreach (split("\n",$meibo)){ if ($spcnum>0){ $mlist[$i]= ($char) x $spcnum; $mlist[$i].= $_; }else{ $tmp= $_; $charlen= length($char); if ($char ne ""){ for($j=0; $j<-$spcnum; $j++){ if(substr($tmp,0,$charlen) eq $char){ $tmp= substr($tmp,$charlen); } } }else{ $tmp= substr($tmp,-$spcnum); } $mlist[$i]= $tmp; } $i++; } print <pre
add specified char at beginning of each line
(for pukiwiki pre)


add this char: (set blank for deleting any)
number of char added (for deleting, use negative value):


script source
END exit (0);