projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
29288f0
)
Transcript parsing
author
Tim Pope
<code@tpope.net>
Fri, 29 Apr 2005 04:00:43 +0000
(
04:00
+0000)
committer
Tim Pope
<code@tpope.net>
Fri, 29 Apr 2005 04:00:43 +0000
(
04:00
+0000)
perl/sctweb
patch
|
blob
|
history
diff --git
a/perl/sctweb
b/perl/sctweb
index 597ce83ccd00b63ccacd7ef2fe5a03192245be85..15ab1ef17685b640aa250b615ee0608ea9f58138 100755
(executable)
--- a/
perl/sctweb
+++ b/
perl/sctweb
@@
-615,7
+615,8
@@
sub do_transcripts {
$response = $ua->get("$url&tserve_tip_write=||WID|SID|PIN&tserve_trans_config=rtranscr.cfg&CareerReqNum=1");
foreach (split /\n/, $response->content) {
next unless s/^\ |<pre>// || s/\ / /;
- s/<\/?[Hh]\d>//g;
+ s/<\/?([Hh]\d|[Bb])>//g;
+ next if /<\/td>/;
print "$_\n";
}
}