Hello
If I understand it correctly, you might try the following AppleScript script which is a simple wrapper of Perl script.
Currently it is assumed that each field in TSV data is quoted such as
"destination" "street" "number" "box" "CL" "ad_Plaats"
and each field does not contain TAB, LF, CR character.
Output file is named after the original file with _mod appended to basename. E.g., given original.txt, the output is original_mod.txt in the same directory as the original.
on run
open (choose file with multiple selections allowed)
end run
on open argv
_main(argv)
end open
on _main(argv)
(*
list argv : alias list
*)
set args to ""
repeat with a in argv
set args to args & space & a's POSIX path's quoted form
end repeat
do shell script "perl <<'EOF' - " & args & "
use strict;
my $Q = q(\"); # q(\") if every value is quoted; q() otherwise.
for my $f (@ARGV) {
my $t;
open(IN, '<', $f) or die qq($!);
{
local $/; $t = <IN>;
}
close IN;
my @aa = &text2array($t, rs => qr/\\015\\012|\\015|\\012/o);
# get original record separator
my $rs = ($t =~ /\\015\\012|\\015|\\012/o) ? $& : qq(\\n);
# get target column index
my ( $k ) = grep { $aa[$_][0] and $aa[$_][0] eq $Q.'destination'.$Q } 0..$#aa;
# edit values in target column
$aa[$k][0] = $Q.'@destination'.$Q;
for $a (@aa) {
$a->[$k] = $Q.'office.pdf'.$Q if $a->[$k] and $a->[$k] =~ /^$Q Office/ixo;
$a->[$k] = $Q.'stamp.pdf'.$Q if $a->[$k] and $a->[$k] =~ /^$Q Address/ixo;
}
# output result to file with _mod apended name (e.g., original.txt -> original_mod.txt)
(my $f1 = $f) =~ s:(\\.[^./]+$|$):_mod$1:o;
open(OUT, '>', $f1) or die qq($!);
print OUT &array2text(\\@aa, rs => $rs);
close OUT;
}
sub text2array($;@) {
# $ : source text
# @ : key value pairs of options
# fs => field_separator
# rs => record_separator
# re => regex pattern to extract elements from each row
# * if re is specified, fs and rs are ignored.
# * fs, rs and re may be string or compiled pattern.
# return : 2d-array
my $t = shift;
my %opts = ( fs => qq(\\t), rs => qq(\\n), re => undef, @_ );
my ($fs, $rs, $re) = @opts{'fs', 'rs', 're'};
my @rr = ();
unless ($re) {
($fs, $rs) = map { ref($_) eq 'Regexp' ? $_ : scalar($_ = quotemeta $_, qr/$_/) } ($fs, $rs);
for (split $rs, $t, -1) {
push @rr, [split $fs, $_, -1];
}
return @rr;
}
else {
$re = ref($re) eq 'Regexp' ? $re : qr/$re/;
my @tt = ( $t =~ /$re/g );
my $len = @+ - 1;
push @rr, [ splice(@tt, 0, $len) ] while ( @tt >= $len );
return @rr;
}
}
sub array2text($;@) {
# $ : source 2d-array ref
# @ : key value pairs of options
# fs => field_separator
# rs => record_separator
# fm => format string for sprintf for each row
# * if fm is specified, fs and rs are ignored
# return : text representation of source 2d-array
my $aref = shift;
my %opts = ( fs => qq(\\t), rs => qq(\\n), fm => undef, @_ );
my ($fs, $rs, $fm) = @opts{'fs', 'rs', 'fm'};
unless ($fm) {
return (join $rs, map { join $fs, @{$_}; } @{$aref}) . $rs;
}
else {
my $t = '';
map { $t .= sprintf $fm, @{$_}; } @{$aref};
return $t;
}
}
EOF"
end _main
Tested under OS X 10.6.8.
Hope this may help,
H
EDIT: fixed code a little to name output file.
