Free convert m4a to mp3 software for linux

Convert::Bencode are functions for converting to/from bencoded strings.

SYNOPSIS

use Convert::Bencode qw(bencode bdecode);

my $string = "d4:ainti12345e3:key5:value4:type4:teste";
my $hashref = bdecode($string);

foreach my $key (keys(%{$hashref})) {
print "Key: $key, Value: ${$hashref}{$key}n";
}

my $encoded_string = bencode($hashref);
print $encoded_string."n";

This module provides two functions, bencode and bdecode, which encode and decode bencoded strings respectivly.

Convert::MIL1750A is a Perl module for conversion routines between decimal floating/integer values and hexadecimal values in the MIL-STD-1750A format.

SYNOPSIS

use MIL1750A;

# Convert to MIL-STD-1750A hex from decimal
$hex16i = I16_to_1750A( $dec_value );
$hex16f = F16_to_1750A( $dec_value );
$hex32f = F32_to_1750A( $dec_value );
$hex48f = F48_to_1750A( $dec_value );

# Convert MIL-STD-1750A hex to decimal
$dec_value = M1750A_to_16int( $hex16i );
$dec_value = M1750A_to_16flt( $hex16f );
$dec_value = M1750A_to_32flt( $hex32f );
$dec_value = M1750A_to_48flt( $hex48f );
or ...
use MIL1750A qw( i16_to_mil f16_to_mil f32_to_mil f48_to_mil
mil_to_32f mil_to_48f mil_to_16f mil_to_16i );

# Convert to MIL-STD-1750A hex from decimal
$hex16i = i16_to_mil( $dec_value );
$hex16f = f16_to_mil( $dec_value );
$hex32f = f32_to_mil( $dec_value );
$hex48f = f48_to_mil( $dec_value );

# Convert MIL-STD-1750A hex to decimal
$dec_value = mil_to_16i( $hex16i );
$dec_value = mil_to_16f( $hex16f );
$dec_value = mil_to_32f( $hex32f );
$dec_value = mil_to_48f( $hex48f );

Convert::MIL1750A features routines to convert between 16I/16F/32F/48F decimal values and their equivalent in MIL-STD-1750A hexadecimal. The 1750A standard describes a microprocessor that is used as the backbone of many modern and legacy avionics systems. The 1750A stores data as an 8-bit exponent and n-bit mantissa (where n is the number of bits remaining in the value).

It is important to treat 16-bit values as 16-bit, 32-bit as 32-bit and 48-bit as 48-bit. Crossing bit structures will create unexpected results as 1750A hex values are structured differently, depending on their size. Additionally, the 16F format is not a formal member of the 1750A standard; it is used, however, in certain applications and is provided for reference. The 1750A standard allows positive and negative values using the 2s complement arrangement.

This module is extremely useful for ingesting data output by or for a 1750A flight processor. I would like to thank and acknowledge Dave Niklewski for helping me to find the standard documentation.Convert::MIL1750A is a Perl module for conversion routines between decimal floating/integer values and hexadecimal values in the MIL-STD-1750A format.

Convert::ASN1 is an ASN.1 Encode/Decode library.

SYNOPSYS

use Convert::ASN1;

$asn = Convert::ASN1->new;
$asn->prepare(q<

[APPLICATION 7] SEQUENCE {
int INTEGER,
str OCTET STRING
}

>);

$pdu = $asn->encode( int => 7, str => "string");

$out = $asn->decode($pdu);
print $out->{int}," ",$out->{str},"n";

use Convert::ASN1 qw(:io);

$peer = asn_recv($sock,$buffer,0);
$nbytes = asn_read($fh, $buffer);
$nbytes = asn_send($sock, $buffer, $peer);
$nbytes = asn_send($sock, $buffer);
$nbytes = asn_write($fh, $buffer);
$buffer = asn_get($fh);
$yes = asn_ready($fh)

Convert::ASN1 encodes and decodes ASN.1 data structures using BER/DER rules.

Text::Convert::ToImage is a Perl module.

SYNOPSIS

use Text::Convert::ToImage;
my $tti = Text::Convert::ToImage->new();
my $length = length($email);
if ($length > 150) {
$email = "Your text length of $length is too large:";
}
my $config = {
TEXT => $email ? $email : "y@hn.org",
POINTSIZE => $point_size ? $point_size : 14,
LEVEL => $level ? $level : 0,
FONT => $font,
XSKEW => $xskew,
YSKEW => $yskew,

};
$tti->calculate($config);
print "Content-type: image/pngnn";
binmode STDOUT;
$tti->Write(png:-);

This was knocked up a long time ago and someone asked me if the source was available so I decided to put it on CPAN. There is very little documentation with it.

There are also very few tests. If more than me and the person who asked for the module use it then I will write some tests for it.

At the moment I have been using it top obfuscate emails and not much else. A demo can be found at http://www.hjackson.org/cgi-bin/tools/email.pl

There are some undocumented features to this module and they are this way because I have not tested to see if they work yet.

Convert::EastAsianWidth is a Perl module that can convert between full- and half-width characters.

SYNOPSIS

# Exports to_fullwidth() and to_halfwidth() by default
use Convert::EastAsianWidth;

my $u = to_fullwidth(ABC); # Full-width variant of ABC
my $b = to_fullwidth(ABC, big5); # Ditto, but in big5 encoding
my $x = to_halfwidth($u); # Gets back ABC
my $y = to_halfwidth($b, big5); # Same as above

This module uses the regular expression properties provided by Unicode::EastAsianWidth to efficiently convert between full- and half-width characters.

The first argument is the string to be converted; the second one represents the input and encodings. If omitted, both are assumed by to Unicode strings.

In Perl versions before 5.8, Encode::compat is required for the encoding conversion function to work.

Convert::AcrossLite is a Perl module to convert binary AcrossLite puzzle files to text.

SYNOPSIS

use Convert::AcrossLite;

my $ac = Convert::AcrossLite->new();
$ac->in_file(/home/doug/puzzles/Easy.puz);
$ac->out_file(/home/doug/puzzles/Easy.txt);
$ac->puz2text;

or

use Convert::AcrossLite;

my $ac = Convert::AcrossLite->new();
$ac->in_file(/home/doug/puzzles/Easy.puz);
my $text = $ac->puz2text;

or

use Convert::AcrossLite;

my $ac = Convert::AcrossLite->new();
$ac->in_file(/home/doug/puzzles/Easy.puz);
my $ac->parse_file;
my $title = $ac->get_title;
my $author = $ac->get_author;
my $copyright = $ac->get_copyright;
my @solution = $ac->get_solution;
my @diagram = $ac->get_diagram;
my $across_clues = $ac->get_across_clues;
my $down_clues = $ac->get_down_clues;

or

use Convert::AcrossLite;

my $ac = Convert::AcrossLite->new();
$ac->in_file(/home/doug/puzzles/Easy.puz);

my($across_hashref, $down_hashref) = get_across_down;

my %across= %$across_hashref;
foreach my $key (sort { $a $b } keys %across) {
print "Direction: $across{$key}{direction}n";
print "Clue Number: $across{$key}{clue_number}n";
print "Row: $across{$key}{row}n";
print "Col: $across{$key}{column}n";
print "Clue: $across{$key}{clue}n";
print "Solution: $across{$key}{solution}n";
print "Length: $across{$key}{length}nn";
}

my %down= %$down_hashref;
foreach my $key (sort { $a $b } keys %down) {
print "Direction: $down{$key}{direction}n";
print "Clue Number: $down{$key}{clue_number}n";
print "Row: $down{$key}{row}n";
print "Col: $down{$key}{column}n";
print "Clue: $down{$key}{clue}n";
print "Solution: $down{$key}{solution}n";
print "Length: $down{$key}{length}nn";
}

Convert::AcrossLite is used to convert binary AcrossLite puzzle files to text.

Convert::IBM390 is a Perl module functions for manipulating mainframe data.

SYNOPSIS

use Convert::IBM390 qw(...those desired... or :all);

$eb = asc2eb($string);
$asc = eb2asc($string);
$asc = eb2ascp($string);

$ebrecord = packeb($template, LIST...);
@fields = unpackeb($template, $record);
@lines = hexdump($string [,startaddr [,charset]]);

Convert::IBM390 supplies various functions that you may find useful when messing with IBM System/3[679]0 data. No functions are exported automatically; you must ask for the ones you want. "use ... qw(:all)" exports all functions.

By the way, this module is called "IBM390" because it will deal with data from any mainframe operating system. Nothing about it is specific to z/OS, z/VM, or z/VSE.