كيف يمكنني منع التكرار في البيرل؟

انظر ستجه شئ يشابه ما تريد بشكل كبير

http://ilovethecode.com/Perl/Perl-Tutorials-How_To-Easy/Exit_a_Loop_with_Last.shtml

اخوي القيمه محددة كـ متغير مجهول

ماتوقع الطريقة هذه بتظبط

يمكنك استخدام الامر

last;

وتحديده مثل الامر ;break فى لغة الC

مثال

#!/usr/bin/perl

use strict;
use warnings;

open my $fh, '<', "data.log.1" or die "could not open data.log.1: $!\n";
chomp( my @Mohamed= <$fh> );
close $fh or die "could not close data.log.1: $!\n";

for my $Mohamed( @ducks ){
  print "$Mohamed\n";
  if( $duck eq "#s2" ){
    print "match\n";
    last;
  }
}

هذا مثال أخر يمكن ان يكون اوضح

FOO: { 
       for my $i ( @listone ){ 
          for my $j ( @listtwo ){ 
                 if ( cond( $i,$j ) ){ 

                    last FOO;  # --->
                                   # | 
                 }                 # |
          }                        # |
       }                           # |
 } # <-------------------------------

يعطيك العافية ماقصرت :) احلى تقييم

rullzing كتب:

يعطيك العافية ماقصرت :) احلى تقييم

شكرا لك اخي الحبيب

تحياتي لك

وأرجو الا تكون ضيفا بل عضوا متميز ان شاء الله

مرحبا بك معنا