On Wednesday, June 13, 2001, at 12:07 , allan wrote:
> #!/usr/bin/perl -w
> $str = "<dcv id=1>some stuff <dcv id=2> more <dcv id=3> more
stuff ";
> $_ = $str;
> $_ = join "append here\n", /<dcv[^>]+>/ig;
> print $_;
Add an undef to the end of the list you're joining:
#!/usr/bin/perl -w
$str = "<dcv id=1>some stuff <dcv id=2> more <dcv id=3> more stuff ";
$_ = $str;
$_ = join "append here\n", /<dcv[^>]+>/ig, undef;
print $_;
--
Craig S. Cottingham
[EMAIL PROTECTED]
PGP key available from:
<http://pgp.ai.mit.edu:11371/pks/lookup?op=get&search=0xA2FFBE41>
ID=0xA2FFBE41, fingerprint=6AA8 2E28 2404 8A95 B8FC 7EFC 136F
0CEF A2FF BE41
