Zet: om: Transcribeer is een uitbreiding Perl voor het transcriberen van natuurlijke talen.

SYNOPSIS

het gebruik zet: om: Transcribeer;

$t = nieuw zet: om: Transcribeer ();
$t->fromfile (filename);
# of
$t = nieuw zet: om: Transcribeer ();
$t->fromstring („transcriptie def. bevattend newlines“);
# of
$t = nieuw zet: om: Transcribeer (filename);
# of
$t = nieuw zet: om: Transcribeer („transcriptie def. bevattend newlines“);

$t->transcribe („tekst“);

$t->generated_code (); # voor het zuiveren

Geo:: De lat is een module Perl om geografische plaatsen tussen GPS moeilijke situaties te berekenen.

SYNOPSIS

gebruik Geo:: Lat;
mijn $p0= {time=>1160449100.67, #seconds
lat=>39.197807, #degrees
lon=>-77.263510, #degrees
speed=>31.124, #m/s
heading=>144.8300}; #degrees met de wijzers van de klok mee van het Noorden
mijn $p1= {time=>1160449225.66,
lat=>39.167718,
lon=>-77.242278,
speed=>30.615,
heading=>150.5300};
mijn $spline=Geo:: Spline->new ($p0, $p1);
mijn %point=$spline->point (1160449150);
druk „Lat: “, $point {„lat“},“, Lon: „, $point {„lon“}, „nn“;

mijn @points=$spline->pointlist ();
foreach (@points) {
druk „Lat: “, $_-> {„lat“},“, Lon: „, $_-> {„lon“}, „n“;
}

Dit programma werd ontwikkeld de positie tussen twee GPS moeilijke situaties kunnen berekenen gebruikend een 2 dimensionale 3de orde uit meerdere namen bestaande lat.

F (t) = A + B (t-t0) + C (t-t0) ^2 + van D (t-t0) ^3 #position in X en Y
F (t) = B + 2C (t-t0) + 3D (t-t0) ^2 #velocity in X en Y

Ik deed één of andere eenvoudige Math (voor een ingenieur met een mathminderjarige) met deze formules op de proppen komen om unknowns van onze knowns te berekenen.

A = x0 # wanneer (t-t0) =0 in F (t)
B = v0 # wanneer (t-t0) =0 in F (t)
C = (x1-a-B (t1-t0) - D (t1-t0) ^3)/(t1-t0) ^2 # lost voor C van F (t) op
C = (v1-B-3D (t1-t0) ^2) /2 (t1-t0) # lost voor C van F (t) op
D = (v1 (t1-t0) +B (t1-t0) - 2x1+2A)/(t1-t0) ^3 # vergelijkt C=C dan lost voor D op

Math:: Zap:: De module van de driehoek kan driehoeken in 3D ruimte bouwen.

Synopsis

Voorbeeld t/triangle.t

# _ Driehoek _________________________________________________________
# 3d driehoeken van de test
# philiprbrenan@yahoo.com, 2004, Vergunning Perl
#____________________________________________________________________

gebruik Math:: Zap:: Vector;
gebruik Math:: Zap:: Vector2;
gebruik Math:: Zap:: Driehoek;
gebruiks Test:: Eenvoudige tests=>25;

$t = driehoek
(vector (0, 0, 0),
vector (0, 0, 4),
vector (4, 0, 0),
);

$u = driehoek
(vector (0, 0, 0),
vector (0, 1, 4),
vector (4, 1, 0),
);

$T = driehoek
(vector (0, 1, 0),
vector (0, 1, 1),
vector (1, 1, 0),
);

$c = vector (1, 1, 1);

# _ Driehoek _________________________________________________________
# Afstand aan vliegtuig
#____________________________________________________________________

o.k. ($t->distance ($c) == 1, Afstand aan vliegtuig);
o.k. ($T->distance ($c) == 0, Afstand aan vliegtuig);
o.k. ($t->distance (2*$c) == 2, Afstand aan vliegtuig);
o.k. ($t->distanceToPlaneAlongLine (vector (0, - 1.0), vector (0.1.0)) == 1, Afstand aan vliegtuig naar een punt);
o.k. ($T->distanceToPlaneAlongLine (vector (0, - 1.0), vector (0.1.0)) == 2, Afstand aan vliegtuig naar een punt);

# _ Driehoek _________________________________________________________
# Herschik de punten van een driehoek
#____________________________________________________________________

o.k. ($t->permute == $t, herschikken 1);
o.k. ($t->permute->permute == $t, herschikken 2);
o.k. ($t->permute->permute->permute == $t, herschikken 3);

# _ Driehoek _________________________________________________________
# Kruising van een lijn met een vliegtuig dat door een driehoek wordt bepaald
#____________________________________________________________________

#ok ($t->intersection ($c, vector (1, -1, 1)) == vector (1, 0, 1), Kruising van lijn met vliegtuig);
#ok ($t->intersection ($c, vector (- 1, -1, -1)) == vector (0, 0, 0), Kruising van lijn met vliegtuig);

# _ Driehoek _________________________________________________________
# Test of een punt vooraan of achter een vliegtuig met betrekking tot een andere is
# punt
#____________________________________________________________________

o.k. ($t->frontInBehind ($c, vector (1, 0.5, 1)) == +1, Voor);
o.k. ($t->frontInBehind ($c, vector (1, 0, 1)) == 0, binnen);
o.k. ($t->frontInBehind ($c, vector (1, -0.5, 1)) == -1, erachter);

# _ Driehoek _________________________________________________________
# Parallel
#____________________________________________________________________

o.k. (Parallelle $t->parallel ($T) == 1,);
o.k. (niet Parallelle $t->parallel ($u) == 0,);

# _ Driehoek _________________________________________________________
# Coplanair
#____________________________________________________________________

#ok (Coplanaire $t->coplanar ($t) == 1,);
#ok (niet coplanaire $t->coplanar ($u) == 0,);
#ok (niet coplanaire $t->coplanar ($T) == 0,);

# _ Driehoek _________________________________________________________
# Project één driehoek op een andere
#____________________________________________________________________

$p = vector (0, 2, 0);
$s = $t->project ($T, $p);

o.k. ($s ==driehoek
(vector (0, 0, 2),
vector (0.5, 0, 2),
vector (0, 0.5, 2),
), Projectie van hoek 3);

# _ Driehoek _________________________________________________________
# De ruimte van de bekeerling aan vliegtuigcoördinaten en vice versa
#____________________________________________________________________

o.k. ($t->convertSpaceToPlane (vector (2, 2, 2)) == vector (0.5, 0.5, 2), Ruimte aan Vliegtuig);
o.k. ($t->convertPlaneToSpace (vector2 (0.5, 0.5)) == vector (2, 0, 2), Vliegtuig aan Ruimte);

# _ Driehoek _________________________________________________________
# Waterscheiding
#____________________________________________________________________

$it = snijdt de driehoek # t
(vector (0, -1, 2),
vector (0, 2, 2),
vector (3, 2, 2),
);

@d = $t->divide ($it);

o.k. ($d [0] driehoek == (vector (0, -1, 2), vector (0, 0, 2), vector (1, 0, 2)));
o.k. ($d [driehoek 1] == (vector (0, 2, 2), vector (0, 0, 2), vector (1, 0, 2)));
o.k. ($d [2] driehoek == (vector (0, 2, 2), vector (1, 0, 2), vector (3, 2, 2)));

$it = snijdt de driehoek # t
(vector (3, 2, 2),
vector (0, 2, 2),
vector (0, -1, 2),
);

@d = $t->divide ($it);

o.k. ($d [0] driehoek == (vector (0, -1, 2), vector (0, 0, 2), vector (1, 0, 2)));
o.k. ($d [driehoek 1] == (vector (3, 2, 2), vector (1, 0, 2), vector (0, 0, 2)));
o.k. ($d [2] driehoek == (vector (3, 2, 2), vector (0, 0, 2), vector (0, 2, 2)));

$it = snijdt de driehoek # t
(vector (3, 2, 2),
vector (0, -1, 2),
vector (0, 2, 2),
);

@d = $t->divide ($it);

o.k. ($d [0] driehoek == (vector (0, -1, 2), vector (1, 0, 2), vector (0, 0, 2)));
o.k. ($d [driehoek 1] == (vector (3, 2, 2), vector (1, 0, 2), vector (0, 0, 2)));
o.k. ($d [2] driehoek == (vector (3, 2, 2), vector (0, 0, 2), vector (0, 2, 2)));

Malplaatje:: De legering is een TT2/3, HT, een Tmpl, en de Motor van de Snelheid.

SYNOPSIS

Malplaatje:: Toolkit stijlgebruik
mijn $t = Malplaatje:: Alloy->new (
INCLUDE_PATH => [/path/to/templates],
);

mijn $swap = {
key1 => val1,
key2 => val2,
code => sub {42},
knoeiboel => {een => B},
};

# druk aan STDOUT
$t->process (my/template.tt, $swap)
|| matrijs $t->error;

# proces in een variabele
mijn $out =;
$t->process (my/template.tt, $swap, $out);

### de legering gebruikt de zelfde syntaxis en de configuratie zoals Malplaatje:: Toolkit
HTML:: Malplaatje:: De stijlgebruik van Expr
mijn $t = Malplaatje:: Alloy->new (
filename => my/template.ht,
weg => [/path/to/templates],
);

mijn $swap = {
key1 => val1,
key2 => val2,
code => sub {42},
knoeiboel => {een => B},
};

$t->param ($swap);

# druk aan STDOUT (foutenmatrijs)
$t->output (print_to => *STDOUT);

# proces in een variabele
mijn $out = $t->output;

### de legering kan de zelfde syntaxis en de configuratie ook gebruiken zoals HTML:: Malplaatje
Tekst:: De stijlgebruik van Tmpl
mijn $t = Malplaatje:: Alloy->new;

mijn $swap = {
key1 => val1,
key2 => val2,
code => sub {42},
knoeiboel => {een => B},
};

$t->set_delimiters (# [,] #);
$t->set_strip (0);
$t->set_values ($swap);
$t->set_dir (/path/to/templates);

mijn $out = $t->parse_file (my/template.tmpl);

mijn $str = „Foo # [echo $key1] # Staaf“;
mijn $out = $t->parse_string ($str);


### de legering gebruikt de zelfde syntaxis en de configuratie zoals Tekst:: Tmpl
Van de snelheid (VTL) de stijlgebruik
mijn $t = Malplaatje:: Alloy->new;

mijn $swap = {
key1 => val1,
key2 => val2,
code => sub {42},
knoeiboel => {een => B},
};

mijn $out = $t->merge (my/template.vtl, $swap);

mijn $str = „#set ($foo 1 + 3) ($foo) ($bar) ($! baz)“;
mijn $out = $t->merge ($str, $swap);

Stelt iptables aan de terugstellen van het standaardwaardenmanuscript de firewall Linux terug iptables aan standaardwaarden.

Configuraties

IPTABLES= " /usr/sbin/iptables "

#
# stel het standaardbeleid in de filterlijst terug.
#
$IPTABLES - DE INPUT VAN P KEURT GOED
$IPTABLES - VOORWAARTS P KEURT GOED
$IPTABLES - DE OUTPUT VAN P KEURT GOED

#
# stel het standaardbeleid in de nationaal lijst terug.
#
$IPTABLES - nationaal t - P PREROUTING KEURT goed
$IPTABLES - nationaal t - P POSTROUTING KEURT goed
$IPTABLES - nationaal t - de OUTPUT van P KEURT goed

#
# stel het standaardbeleid in de mangellijst terug.
#
$IPTABLES - tmangel - P PREROUTING KEURT goed
$IPTABLES - tmangel - de OUTPUT van P KEURT goed

#
# gelijk alle regels in de filter en nationaal lijsten.
#
$IPTABLES - F
$IPTABLES - nationaal t - F
$IPTABLES - tmangel - F
#
# wis alle kettingen dat geen gebrek in filter en nationaal lijst is.
#
$IPTABLES - X
$IPTABLES - nationaal t - X
$IPTABLES - tmangel - X

Tekst:: EtText:: HTML2EtText is een module Perl van HTML in het EtText editable-tekstformaat om te zetten.

SYNOPSIS

mijn $t = nieuwe Tekst:: EtText:: HTML2EtText;
druk $t->html2text ($html);
of
mijn $t = nieuwe Tekst:: EtText:: HTML2EtText;
druk $t->html2text (); # van STDIN

ethtml2text zal een HTML- dossier in het EtText editable-tekstformaat, voor gebruik met webmake of ettext2html omzetten.

Tekst:: EtText:: EtText2HTML is een module Perl van het eenvoudige EtText editable-tekstformaat in HTML om te zetten.

SYNOPSIS

mijn $t = nieuwe Tekst:: EtText:: EtText2HTML;
druk $t->text2html ($text);
of
mijn $t = nieuwe Tekst:: EtText:: EtText2HTML;
druk $t->text2html (); # van STDIN

ettext2html zal een tekstdossier in het EtText editable-tekstformaat in HTML omzetten.

Ethiopisch:: De tijd is een module Perl voor omzettingen van Ethiopische en Gregoriaanse kalendersystemen to/from.

SYNOPSIS

gebruik LiveGeez:: Verzoek;
vereis Bekeerling:: Ethiopisch:: Tijd;
mijn $r = LiveGeez:: Request->new;

ReadParse (%input);
$r->ParseInput (%input);

mijn $t = Bekeerling:: Ethiopisch:: Time->new ($r);

$t->GregorianToEthiopic;

druk „$t-> {euDay}/$t-> {euMonth} {euYear}/$t-> =“;
druk „$t-> {etDay}/$t-> {etMonth}/$t-> {etYear} n“

Ethiopisch:: Tijd en Ethiopisch:: Cstocs wordt ontworpen als interfaces aan de methodes in Ethiopisch:: de module en is georiënteerd als diensten voor LiveGeez:: module. In deze Ethiopische versie:: De tijd denkt om een voorwerp met knoeiboelelementen te ontvangen gebruikend de sleutels:

calIn

welke „euro of „ethio“ kan zijn.

datum

een komma gescheiden lijst als „dag, maand, jaar“.

LCInfo

de scène montages zien de LibEth mensenpagina's.

Deze sleutels worden geplaatst wanneer het gebruiken van een LiveGeez:: Het voorwerp van het verzoek zoals aangetoond in het voorbeeld.