aa

 5 

 Perl    C     


  open 

open(  , "" );

  ()   Perl 

    " " 
    ">" 
    ">>" 

  hello.dat  3 

    open( FILE , "hello.dat" );
         hello.dat 
    open( FILE , ">hello.dat" ):
         hello.dat   
    open( FILE , ">>hello.dat" );
         hello.dat  

    (... ..)   
   close 

close(  );



    open( FILE , "hello.dat" );
    ...............................
    close( FILE );


  print   

print  "";

  "Perl is easy for you" 

    open( FILE , "hello.dat" );
    print FILE "Perl is easy for you";
    close( FILE );

  hello.dat   "perl is easy for you"    

    $name = "Richard";
    $age = "30";
    open( FILE , ">data.dat" );
    print FILE "name is $name , age is $age\n";
    close( FILE );

  $name  $age  data.dat  (>)  

name is Richard , age is 30 <--  "\n"


   3   

    open( FILE , "data.dat" );
    @buffer = <FILE>;
    close( FILE):

  data.dat  @buffer  3  
  data.dat 

    this is a test 1
    this is a test 2
    this is a test 3
    this is a test 4
    this is a test 5

  5  @buffer      0  buffer  1  1  2 ...   

    $buffer[0]  this is a test 1
    $buffer[1]  this is a test 2
    $buffer[2]  this is a test 3
    $buffer[3]  this is a test 4
    $buffer[4]  this is a test 5

      0 

    CGI   DevMan 