Free ffffff software for linux

Tk::Mirror is a Perl extension for a graphic user interface to update local or remote directories in both directions.

SYNOPSIS

# in the simplest kind and manner
use Tk::Mirror;
use Tk;
my $mw->MainWindow->new();
$mw->Mirror()->grid();
MainLoop();
# in a detailed kind
use Tk;
use Tk::Mirror;
my $mw = MainWindow->new();
my $mirror = $mw->Mirror(
-localdir => "TestA",
-remotedir => "TestD",
-usr => my_ftp@username.de
-ftpserver => "ftp.server.de",
-pass => "my_password",
-debug => 1,
-delete => "enable",
-exclusions => ["private.txt", "secret.txt"],
-timeout => 60,
-connection => undef, # or a connection to a ftp-server
)->grid();
for(keys(%{$mirror->GetChilds()}))
{
$mirror->Subwidget($_)->configure(
-font => "{Times New Roman} 14 {bold}",
);
}
for(qw/
TreeLocalDir
TreeRemoteDir
/)
{
$mirror->Subwidget($_)->configure(
-background => "#FFFFFF",
-width => 40,
-height => 20,
);
}
for(qw/
bEntryUsr
EntryPass
bEntryFtpServer
bEntryLocalDir
bEntryRemoteDir
/)
{
$mirror->Subwidget($_)->configure(
-background => "#FFFFFF",
);
}
MainLoop();

This is a graphic user interface to compare and update local with remote directories in both directions.

Tk::Image::Cut is a Perl extension for a graphic user interface to cut pictures.

SYNOPSIS

use Tk::Image::Cut;
my $mw = MainWindow->new();
$mw->title("Picture-Cutter");
$mw->geometry("+5+5");
my $cut = $mw->Cut()->grid();
$mw->Button(
-text => "Exit",
-command => sub { exit(); },
)->grid();
for(qw/
ButtonSelectImage
LabelShape
bEntryShape
ButtonColor
LabelWidthOut
EntryWidthOut
LabelHeightOut
EntryHeightOut
ButtonIncrease
ButtonReduce
LabelNameOut
EntryNameOut
ButtonCut
/)
{
$cut->Subwidget($_)->configure(
-font => "{Times New Roman} 10 {bold}",
);
}
for(qw/
bEntryShape
EntryWidthOut
EntryHeightOut
EntryNameOut
Canvas
/)
{
$cut->Subwidget($_)->configure(
-background => "#FFFFFF",
);
}
for(qw/
bEntryShape
EntryWidthOut
EntryHeightOut
/)
{
$cut->Subwidget($_)->configure(
-width => 6,
);
}
$cut->Subwidget("EntryNameOut")->configure(
-width => 40,
);
$cut->Subwidget("Canvas")->configure(
-width => 1000,
-height => 800,
);
MainLoop();

Perl extension for a graphic user interface to cut pictures. The module is a mixed widget from Buttons, Labels, BrowseEntry, Entrys and Canvas widgets.

I hope the graphic user interface is simple enough to be understood without great declarations.

It can be used as an independent application or just like how any other widget. Try out the test.pl program.You can select between four cutting forms.

"rectangle", "oval", "circle" or "polygon"

In order to cut out pictures in circular form or ovally click with the left mouse button onto the upper left corner and hold the button pressed while the mouse is moved.
In order to cut pictures in polygon form you click with the left mouse button on the first point and draw the mouse to the next point. If you have drawn the last point you click with the right mouse button.

You can use all standard widget options.

Template::Manual::Directives is a Perl module that contains template directives.

Accessing and Updating Template Variables

GET

The GET directive retrieves and outputs the value of the named variable.

[% GET foo %]

The GET keyword is optional. A variable can be specified in a directive tag by itself.

[% foo %]

The variable can have an unlimited number of elements, each separated by a dot .. Each element can have arguments specified within parentheses.

[% foo %]
[% bar.baz %]
[% biz.baz(10) %]
...etc...

See Template::Manual::Variables for a full discussion on template variables.
You can also specify expressions using the logical (and, or, not, ?:) and mathematic operators (+ - * / % mod div).

[% template.title or default.title %]

[% score * 100 %]

[% order.nitems ? checkout(order.total) : no items %]

The div operator returns the integer result of division. Both % and mod return the modulus (i.e. remainder) of division. mod is provided as an alias for % for backwards compatibility with version 1.

[% 15 / 6 %] # 2.5
[% 15 div 6 %] # 2
[% 15 mod 6 %] # 3

CALL

The CALL directive is similar to GET in evaluating the variable named, but doesnt print the result returned. This can be useful when a variable is bound to a sub-routine or object method which you want to call but arent interested in the value returned.

[% CALL dbi.disconnect %]

[% CALL inc_page_counter(page_count) %]

SET

The SET directive allows you to assign new values to existing variables or create new temporary variables.

[% SET title = Hello World %]

The SET keyword is also optional.

[% title = Hello World %]

Variables may be assigned the values of other variables, unquoted numbers (digits), literal text (single quotes) or quoted text ("double quotes"). In the latter case, any variable references within the text will be interpolated when the string is evaluated. Variables should be prefixed by $, using curly braces to explicitly scope the variable name where necessary.

[% foo = Foo %] # literal value Foo
[% bar = foo %] # value of variable foo
[% cost = $100 %] # literal value $100
[% item = "$bar: ${cost}.00" %] # value "Foo: $100.00"

Multiple variables may be assigned in the same directive and are evaluated in the order specified. Thus, the above could have been written:

[% foo = Foo
bar = foo
cost = $100
item = "$bar: ${cost}.00"
%]

Simple expressions can also be used, as per GET.

[% ten = 10
twenty = 20
thirty = twenty + ten
forty = 2 * twenty
fifty = 100 div 2
six = twenty mod 7
%]

You can concatenate strings together using the _ operator. In Perl 5, the . is used for string concatenation, but in Perl 6, as in the Template Toolkit, the . will be used as the method calling operator and _ will be used for string concatenation. Note that the operator must be specified with surrounding whitespace which, as Larry says, is construed as a feature:

[% copyright = (C) Copyright _ year _ _ author %]

You can, of course, achieve a similar effect with double quoted string interpolation.

[% copyright = "(C) Copyright $year $author" %]

DEFAULT

The DEFAULT directive is similar to SET but only updates variables that are currently undefined or have no "true" value (in the Perl sense).

[% DEFAULT
name = John Doe
id = jdoe
%]

This can be particularly useful in common template components to ensure that some sensible default are provided for otherwise undefined variables.

[% DEFAULT
title = Hello World
bgcol = #ffffff
%]
< html>
< head>
< title>[% title %]
< /head>

< body bgcolor="[% bgcol %]">