سورس خواندن فایل متنی به زبان 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 702 17-07-2014 ساعت 14:31
آخرین ارسال: imanpajand
Note سورس تبدیل string به hexadecimal SOFTAFZAR 0 581 01-11-2012 ساعت 12:56
آخرین ارسال: SOFTAFZAR
Note سورس نمایش اطلاعات وبسایت به زبان پرل SOFTAFZAR 0 598 20-07-2012 ساعت 14:34
آخرین ارسال: SOFTAFZAR

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