Help for this page

Select Code to Download


  1. or download this
    while (defined($line = <IN>)) {
        push @data, split(' ', $line);
    }
    my $string = pack("d*", @data);
    
  2. or download this
    @data = <IN>;