Free xine 0.02 software for linux

Video::Xine is a Perl interface to libxine.

SYNOPSIS

use Video::Xine;

# Create and initialize the Xine object
my $xine = Video::Xine->new(
config_file => "$ENV{HOME}/.xine/config",
);

# Load a video driver
my $video_driver = Video::Xine::Driver::Video->new($xine,"auto",1,$x11_visual);

# Create a new stream (put your video driver under $DRIVER)
my $stream = $xine->stream_new(undef,$DRIVER);

# Open a file on the stream
$stream->open(file://my/movie/file.avi)
or die "Couldnt open stream: ", $stream->get_error();

# Get the current position (0 .. 65535), position in time, and length
# of stream in milliseconds
my ($pos, $pos_time, $length_time) = $stream->get_pos_length();

# Start the stream playing
$stream->play()
or die "Couldnt play stream: ", $xine->get_error();

# Play the stream to the end
while ( $stream->get_status() == XINE_STATUS_PLAY ) {
sleep(1);
}

A perl interface to Xine, the Linux movie player. More properly, an interface to libxine, the development library. Requires installation of libxine.

Xine by itself does not provide a user interface, and neither does this interface. Instead, you must set up the window using your own windowing code, and pass the window information to Xine.

Wily is a Perl extension for interfacing with Wily.

SYNOPSIS

use Wily;
use Wily::Message;

# opens a file in wily and exits when the window is destroyed

my $wily = Wily->new();
my $win = $wily->win(/tmp/file_to_edit, 1);
$win->set_callback(Wily::Message::WEdestroy, sub {exit;});
$win->attach(Wily::Message::WEdestroy);
$wily->event_loop();

Provides a reasonably high level OO interface to wily. A lower level interface is available via Wily::RPC, and an even lower level one through Wily::Message and Wily::Connect.

The actual windows in wily are represented by Wily::Win objects.

Tie::Form is a Perl module to access a machine readable database file that minics a hardcopy form.

SYNOPSIS

require Tie::Form;

#####
# Using support methods and file handle with
# the file subroutines such as open(), readline()
# print(), close()
#
tie *FORM_FILEHANDLE, Tie::Form, @options
$form = tied *FORM_FILEHANDLE;

#####
# Using support methods only, no file subroutines
#
$form = Tie::Form->new(@options);

$encoded_fields = $form->decode_record($record);
@fields = $form->decode_field($encoded_fields);

$encoded_fields = $form->encode_field (@fields);
$record = $form->encode_record($encoded_fields);

$record = $form->get_record();

####
# Subroutine interface
#
$encoded_fields = decode_record($record);
@fields = decode_field($encoded_fields);

$encoded_fields = encode_field (@fields);
$record = encode_record($encoded_fields);

If a subroutine or method will process a list of options, @options, that subroutine will also process an array reference, @options, [@options], or hash reference, %options, {@options}.