くだすれPerl（超初心者用）2
>>290
失礼。他のスレッドへの返答でした。
http://pc11.2ch.net/test/read.cgi/tech/1208674881/519 への回答
# 変数が半角スペースで始まっていれば、半角スペースを先頭一個だけ消去
if($example =~ /^ /){ $example =~ s/ //; }
# 変数が全角スペースで始まっていれば、全角スペースを先頭から一個だけ消去
elsif($example =~ /^ /){ $example =~ s/ //; }
拙いですがどうですか？
失礼。他のスレッドへの返答でした。
http://pc11.2ch.net/test/read.cgi/tech/1208674881/519 への回答
# 変数が半角スペースで始まっていれば、半角スペースを先頭一個だけ消去
if($example =~ /^ /){ $example =~ s/ //; }
# 変数が全角スペースで始まっていれば、全角スペースを先頭から一個だけ消去
elsif($example =~ /^ /){ $example =~ s/ //; }
拙いですがどうですか？
|
|
|