Return to Answer

Protected against filenames with spaces and cases where the 1st field is a subset of the file name

edited Jun 24, 2015 at 11:03

Before told about perl speed try to speed up your own script

for f in *file*.csv; do sed -i "/^$f,/! s/^/$f,/" $f"$f" done

Before told about perl speed try to speed up your own script

for f in *file*.csv; do sed -i "/^$f/! s/^/$f,/" $f done

Before told about perl speed try to speed up your own script

for f in *file*.csv; do sed -i "/^$f,/! s/^/$f,/" "$f" done

answered Jun 24, 2015 at 10:48

Before told about perl speed try to speed up your own script

for f in *file*.csv; do sed -i "/^$f/! s/^/$f,/" $f done