Help for this page

Select Code to Download


  1. or download this
    print $sock "$data\r\n";
my @output;
$output = join('', @output);
  2. or download this
    $data_file = "/path/to/data.txt";
$delimiter = "\n"; 
open(FILE,"$data_file") || &error('open->data_file',$data_file);
@FILE = <FILE>;
close(FILE);
  3. or download this
    $commands = join('',@FILE);
@commands = split(/$delimiter/,$commands);