• سورس خواندن فایل متنی به زبان Perl
    #1
    Note 
    کد php:
    ###################################
    # SoftAfzar.Net
    #!/usr/bin/perl -w
    # Written by Enrique Hernandez
    # FILE I/O Example!
    # http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=221&lngWId=6
    ###################################
    my ($file_buffer$file_path$i$ans);
    print 
    "Please enter a file to read: ";
    $ans = <STDIN>; chomp($ans);
    # Make user tell us what file to read.
    $file_path $ans;
    # If true
        
    if(open(FH$file_path)) 
         {
    # While still receiving data
         
    while($file_buffer = <FH>)
    {
    $i++;
        if(
    $i == 10
         {
          
    system("Pause");
    $i=0;
     }
         print 
    $file_buffer;
         }
     
    close(FH);
     
    # We can close the file here
     # since we just got off the while loop
     # it signifies that were done reading...
     
    }
     else
        {
              die 
    "Cannot open file; $!\n";
         }
    # close(FH); Can close it here as well
    # instead of up there, same thing... 

    پاسخ
    ایجاد موضوع جدید   پاسخ به موضوع  

    موضوعات مرتبط با این موضوع...
    موضوع نویسنده پاسخ بازدید آخرین ارسال
    Note سورس Site crawler به زبان پرل SOFTAFZAR 1 801 17-07-2014 ساعت 14:31
    آخرین ارسال: imanpajand
    Note سورس تبدیل string به hexadecimal SOFTAFZAR 0 699 01-11-2012 ساعت 12:56
    آخرین ارسال: SOFTAFZAR
    Note سورس نمایش اطلاعات وبسایت به زبان پرل SOFTAFZAR 0 684 20-07-2012 ساعت 14:34
    آخرین ارسال: SOFTAFZAR

    کاربرانِ درحال بازدید از این موضوع:   1 مهمان