… | |
… | |
152 | |
152 | |
153 | sub sct_filter { _filter ($_[0]{fd}, @_[1, 2, 3, 4, 5]) } |
153 | sub sct_filter { _filter ($_[0]{fd}, @_[1, 2, 3, 4, 5]) } |
154 | sub pes_filter { _pes_filter ($_[0]{fd}, @_[1, 2, 3, 4, 5]) } |
154 | sub pes_filter { _pes_filter ($_[0]{fd}, @_[1, 2, 3, 4, 5]) } |
155 | sub buffer { _buffer ($_[0]{fd}, $_[1]) } |
155 | sub buffer { _buffer ($_[0]{fd}, $_[1]) } |
156 | |
156 | |
|
|
157 | package Linux::DVB::Decode; |
|
|
158 | |
|
|
159 | use Encode; |
|
|
160 | |
|
|
161 | sub text($) { |
|
|
162 | for ($_[0]) { |
|
|
163 | s/^([\x01-\x0b])// and $_ = decode sprintf ("iso-8859-%d", 4 + ord $1), $_; |
|
|
164 | # 10 - pardon you??? |
|
|
165 | s/^\x11// and $_ = decode "utf16-be", $_; |
|
|
166 | # 12 ksc5601, DB |
|
|
167 | # 13 db2312, DB |
|
|
168 | # 14 big5(?), DB |
|
|
169 | s/\x8a/\n/g; |
|
|
170 | #s/([\x00-\x09\x0b-\x1f\x80-\x9f])/sprintf "{%02x}", ord $1/ge; |
|
|
171 | s/([\x00-\x09\x0b-\x1f\x80-\x9f])//ge; |
|
|
172 | } |
|
|
173 | } |
|
|
174 | |
157 | 1; |
175 | 1; |
158 | |
176 | |
159 | =head1 AUTHOR |
177 | =head1 AUTHOR |
160 | |
178 | |
161 | Marc Lehmann <pcg@goof.com> |
179 | Marc Lehmann <pcg@goof.com> |