This snippet will substitute the (for example) "lrwxr-xr-x" part into a \n character. I took [dlrwxsS-] to match the possible characters. I might have forgotten one or two possibilities ;)open (INPUT, "<$flatfile"); while(<INPUT>) { $_ =~ /[dlrwxsS-]{10}\s/\n/g; print; } close INPUT;
In reply to Re: awk/perl?
by b10m
in thread awk/perl?
by bigbossman72
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |