in reply to replace middle spaces and write to another file
Update: If you do not mind the original file is changed "in place" you can do this:
Which will changeuse Modern::Perl; use Tie::File; my @tied_array; tie @tied_array, 'Tie::File', 'test.txt', autochomp => 1; s/\s+/,/g for @tied_array;
intodit is een test hier is een andere zin en tenslotte de finale lijn
dit,is,een,test hier,is,een,andere,zin en,tenslotte,de,finale,lijn
CountZero
A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James
|
|---|