Help for this page

Select Code to Download


  1. or download this
        my $file = "$this->{LOG_DIR}/input.$n.r" ;
    sleep(2);
    while( -e $file || -e "$file._" ) {
  2. or download this
    my ($x,$xx) ;
    sleep(2);
    while( (!$has_quit || $this->{STOPING} == 1) && -e $file && $this-
+>is_started( !$this->{STOPING} ) ) {
    ++$x ;
  3. or download this
    my ($n) = ( $data =~ /(\d+)\s*$/gi );
    $n = 1 if $n eq '' ;
    sleep(1);
    return( $n , $data ) if wantarray ;