Perlについての質問箱 30箱目

Perlについての質問箱 30箱目at TECH

Perlについての質問箱 30箱目 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

250:デフォルトの名無しさん
 07/04/14 13:32:25 
＞そんなに頻繁に使うようならスクリプト 
？

251:デフォルトの名無しさん
 07/04/14 17:11:52 
#!/usr/bin/perl 
# >>235 の望みを叶える夢のスクリプト: 
exec 'perl', '-pi.bak', '-e "tr/A-Z/a-z/"', shift; 
__END__

252:デフォルトの名無しさん
 07/04/14 22:29:21 
>>251 
頭大丈夫？

253:デフォルトの名無しさん
 07/04/14 22:41:39 
大丈夫な人も大丈夫じゃない人も大丈夫って答えるから 
間抜けな質問というしかない。

254:デフォルトの名無しさん
 07/04/14 22:55:57 
>>184 
@a = grep {/(foo|bar|baz)/} split /(foo|bar|baz)/ , $_;

255:デフォルトの名無しさん
 07/04/14 23:30:26 
こんばんは。  
会社のHP作成を引き継いだのですが、わからないことがあるのでどなたか教えていただけないでしょうか。  
コンボボックスを外部のテキストから読み込んでいるのですが、途中までしか表示されないのです。  
0<>--<><>  
1<>A<><>  
2<>B<><>  
3<>C<><>  
4<>D<><>  
5<>E<><>  
6<>F<><>  
7<>G<><>  
8<>H<><>  
(中略) 
14<>N<><>  
上記が外部テキストの中身なのですが、コンボボックスには8までしか表示されないのです。  
コンボボックスの方は  
#編集モード以外は表示するだけ、編集モード時はコンボボックスで表示  
if (!$edit) {$html .= "<td align=\"center\"><table width=\"100%\">";  
for ($l = 0; $l < $periods; $l++) {  
if ($showpname) { $html .= "<tr><td>$periodname[$l]</td>"; }  
$html .= "<td align=\"center\">$STATUSSTR[$stats[$l]]</td></tr>";}  
$html .= "</table></td>\n";}  
となっています。  
全てを表示させるようにするにはどこを変えたらいいのでしょうか。 
(これだけの情報では不十分でしたらすみません。 
　他にどんな情報が必要かも教えていただければ幸いです)  
Perl関連の本など読んでみたのですがわからなくて…  
宜しくお願いします。

次ページ