Hello all!
I try to transform this LaTeX (MusiXTEX) snipped
from
\NOtes\qu{ABCD}\enotes\barre % 6. Takt
\NOtes\qu{EFGH}\enotes\barre % 7. Takt
\NOtes\ql{IJKL}\enotes\barre % 8. Takt
\NOtes\ql{MNOP}\enotes\barre % 9. Takt
\NOtes\ql{QRST}\enotes\barre % 10. Takt
\setclef1{\treble}\changeclefs%
\NOtes\qu{abcd}\enotes\barre % 1. Takt
\NOtes\qu{efgh}\enotes\barre % 2. Takt
\NOtes\ql{ijkl}\enotes\barre % 3. Takt
\NOtes\ql{mnop}\enotes\barre % 4. Takt
\NOtes\sk\ql{qrst}\enotes\barre %5. Takt
to
\NOtes\qu{ABCD}\enotes\barre % 1. Takt
\NOtes\qu{EFGH}\enotes\barre % 2. Takt
\NOtes\ql{IJKL}\enotes\barre % 3. Takt
\NOtes\ql{MNOP}\enotes\barre % 4. Takt
\NOtes\ql{QRST}\enotes\barre % 5. Takt
\setclef1{\treble}\changeclefs%
\NOtes\qu{abcd}\enotes\barre % 6. Takt
\NOtes\qu{efgh}\enotes\barre % 7. Takt
\NOtes\ql{ijkl}\enotes\barre % 8. Takt
\NOtes\ql{mnop}\enotes\barre % 9. Takt
\NOtes\sk\ql{qrst}\enotes\barre % 10. Takt
Could someone be so kind, to help me out? There is a certainly a silly
syntax error in the following perl script (mind the line feeds of my
mail client):
#!/usr/bin/perl
use warnings;
use strict;
my $increment = 0;
while (<DATA>) {
if (/\s*\d+\.\sTakt/) {
next if /^\s+$/;
++$increment;
s/^([^%]+)%\s*\d+\.\sTakt$/"$1 %" .
sprintf("%30.10s",$increment)
". Takt"/eg;
}
print;
}
__DATA__
\NOtes\qu{ABCD}\enotes\barre % 6. Takt
\NOtes\qu{EFGH}\enotes\barre % 7. Takt
\NOtes\ql{IJKL}\enotes\barre % 8. Takt
\NOtes\ql{MNOP}\enotes\barre % 9. Takt
\NOtes\ql{QRST}\enotes\barre % 10. Takt
\setclef1{\treble}\changeclefs%
\NOtes\qu{abcd}\enotes\barre % 1. Takt
\NOtes\qu{efgh}\enotes\barre % 2. Takt
\NOtes\ql{ijkl}\enotes\barre % 3. Takt
\NOtes\ql{mnop}\enotes\barre % 4. Takt
\NOtes\sk\ql{qrst}\enotes\barre %5. Takt
--
This is the BBEdit Talk public discussion group. If you have a
feature request or would like to report a problem, please email
"[email protected]" rather than posting to the group.
Follow @bbedit on Twitter: <http://www.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 post to this group, send email to [email protected].
