Text-SRT-Align

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

no_index:
  directory:
    - inc
    - share
    - t
    - test
requires:
  Clone: 0
  Encode: 0
  Encode::Locale: 0
  File::BOM: 0
  File::ShareDir: 0
  FindBin: 0
  Getopt::Std: 0
  IO::File: 0
  IPC::Open3: 0
  Locale::Codes::Language: 3.26
  XML::Parser: 0
resources:
  license: http://opensource.org/licenses/gpl-license.php
version: '0.2'

Makefile.PL  view on Meta::CPAN

author      'Joerg Tiedemann';
license     'gpl';
version     '0.2';

include     'Module::AutoInstall';

requires 'Clone'          => 0;
requires 'FindBin'        => 0;
requires 'Encode'         => 0;
requires 'Encode::Locale' => 0;
requires 'File::BOM'      => 0;
requires 'File::ShareDir' => 0;
requires 'Getopt::Std'    => 0;
requires 'IO::File'       => 0;
requires 'IPC::Open3'     => 0;
requires 'XML::Parser'    => 0;

# recommends 'File::ShareDir' => 0;
requires 'File::ShareDir' => 0;
requires 'Locale::Codes::Language' => 3.26;

srt2xml  view on Meta::CPAN

=cut 


use strict;
use utf8;

use Getopt::Std;
use IPC::Open3;
use FindBin qw($Bin);
use File::BOM qw( :all );
use File::ShareDir;
use Encode qw(decode encode);
use Locale::Codes::Language 3.26;


use vars qw/$opt_l $opt_e $opt_r $opt_s/;

$opt_l = 'unknown';
getopts('l:e:r:s');

srt2xml  view on Meta::CPAN

my $newchunk = 0;

my @opentags=();
my @closedtags=();

my $first=1;

while (my $line = <>){

    # check if the first line has a BOM
    # --~ try to detect encoding!
    if ($first){
	my $check;
	($line, $enc) = decode_from_bom($line,$enc,$check);
	binmode(STDIN,":encoding($enc)");
	$first=0;
    }

    # remove dos line endings
    $line=~s/\r\n$/\n/;