#!/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)
script source