PHPの初心者です。

いろいろな、プログラムサンプルを結合して、プログラムを作成しております。

下記、foreachから抜け出すために、”5”以上になったらforeachをBreakするということがやりたいのですが、

-------------------
# 使用するモジュールの読み込み
use strict;
use warnings;
use Encode;

<< 途中省略 >>

foreach $result1 ( reverse( @{$response1->{'results'}} ) ) {
my $text1 = Encode::encode('utf8', $result1->{'text'});

<< 途中省略 >>

if ( $count > 5 )
{
$count = 0;
break;
}
else
{
$count = $count + 1;
}
}

Bareword "break" not allowed while "strict subs" in use at /var/www/html/bbs/combot2/combot.pl line 46.
(46行は、breakの箇所です。)
というエラーがでます。解放をおしえてください。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2009/11/15 19:53:40
  • 終了:2009/11/15 20:51:18

ベストアンサー

id:b-wind No.1

b-wind回答回数3344ベストアンサー獲得回数4402009/11/15 20:22:01

ポイント60pt

PHPの初心者です。

どーみても Perl コードなのにこの書き出しはないだろ。


制御構文 [Perl講座 -Smart]

ループを抜ける制御構文は last だ。

id:ooamishirasato

・・・ Perlでした!!

2009/11/15 20:42:03

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません