[скриптота] Читать файл пословно

 index1           index2            nc_td           adrv_cap          
                  iptr              cap_z           t_en0             
                  v_en0             t_en1           
                  alter#            
    1.000         1.000             3.01            5  
                  5.000             1.000           0             
                  failed            3.000           1             

    2.000         2.000             3.01            5  
                  5.000             failed          0             
                  0                 3.000           1   
    3.000         3.000             3.01            5      
                  5.000             4.000           0             
                  0                 3.000
                  1    

$ echo 'мама мыла   раму' | perl -nE 'BEGIN{$/=" "}s/\s//g;next unless length;say'
мама
мыла
раму
$ _

perl -nE 'say for /\S+/g'

 

while(<IN>) { 
   foreach my $word (split /\s+/, $_) { 
      print "$word\n"; 
   } 
} 

irb(main):004:0> str = " index1           index2            nc_td           adrv_cap        "
=> " index1           index2            nc_td           adrv_cap        "
irb(main):005:0> str.split
=> ["index1", "index2", "nc_td", "adrv_cap"]

$/ = ' ';

sub get_next_word
{
    do { $_ = <IN> } while /^\s+$/;
    chomp;
    s/\n//;
    return $_
}

file = File.new("input", "r")
arr = []
while (line = file.gets)
	line = line.split

	line.each do |w|
		puts w
	end
end
file.close

kovrik@casper:~/Desktop$ ruby parser2.rb 
index1
index2
nc_td
adrv_cap
iptr
cap_z
t_en0
v_en0
t_en1
alter#
1.000
1.000
3.01
5
5.000
1.000
0
failed
3.000
1
2.000
2.000
3.01
5
5.000
failed
0
0
3.000
1
3.000
3.000
3.01
5
5.000
4.000
0
0
3.000
1

sub get_next_word {
	local $/ = ' ';
	/\S+/ && return $& while <IN>
}

#!/bin/sh

for WORD in `cat /dev/stdin`; do
    echo $WORD
done

cat file.txt | ./r.sh 
index1
index2
nc_td
adrv_cap
iptr
cap_z
t_en0
v_en0
t_en1
alter#
1.000
1.000
3.01
5
5.000
1.000
0
failed
3.000
1
2.000
2.000
3.01
5
5.000
failed
0
0
3.000
1
3.000
3.000
3.01
5
5.000
4.000
0
0
3.000
1

while(my $w = get_next_word())

while (length(my $w = get_next_word)) {
	...
}

class ReadWord
  def initialize(filename)
    @file = File.new filename, "r"
    @line = []
  end

  def nextWord
    if @line.empty?
      @line = @file.gets
      if @line then
        @line = @line.split
      else
        @file.close
        return
      end
    end

    @line.shift
  end
end

{
 my %x;

 sub get_word
 {
   my $fd=shift || die ...;

   $x{$fd->fileno} ||= [];
   my $ref=   $x{$fd->fileno};

   if ( @$ref) {
     return shift @$ref;
   }
   else {
     while (!@$ref) {
        my $str=$fd->getline();
        
        if (!$str) {
          return undef; #eof
         }        

        chomp $str;
        @$ref=[split(/\s+/, $str)];        
     }
   }
 }

}