On 04/19/2021, at 09:21, Francisco Hirsch <[email protected]
<mailto:[email protected]>> wrote:
> I should have made my question and example clearer.
> I give a clearer example:
>
> <a href=“link1”>1. THIS SOFTWARE IS PROVIDED “AS IS”, WITHOUT</a>
> <a href=“link2”>2. PERMISSION IS GRANTED TO ANYONE TO USE THIS</a>
Hey Francisco,
In my script I've ensured that only hrefs containing "link<1 or more digits>"
are affected.
This is easy to change of course.
--
Best Regards,
Chris
#!/usr/bin/env perl -sw
# Title Case Link Text
use v5.010;
my ($cap1, $cap2, $cap3);
while (<>) {
if ( m!(<a href="link\d+">)(.+)(</a>)!i ) {
($cap1, $cap2, $cap3) = ($1, $2, $3);
$cap2 =~ s!(\b\w[^\h[:punct:]]+)!\u\L$1!gi;
say "$cap1$cap2$cap3";
} else {
print;
}
}
--
This is the BBEdit Talk public discussion group. If you have a feature request
or need technical support, please email "[email protected]" rather than
posting here. Follow @bbedit on Twitter: <https://twitter.com/bbedit>
---
You received this message because you are subscribed to the Google Groups
"BBEdit Talk" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/bbedit/7D9BF37C-DC73-4686-9010-587A61BACE29%40gmail.com.
