Perl Forum RSS Feed

09'Famous Software ftp download 2009!!

Wed, 01 Jul 2009 01:49:33 -0700

09'Famous Software ftp download 2009!!
Anything you need,can check: ctrl + f
kela2018@rambler.ru
http://comm.tulumba.com/topicitem.asp?topic_id=2427&subject=Download+Software+FTP-Professional!+

iAfes.Foundation.v2.5
I-Logix Statemate 4.1
IAR Atmel AVR C.EC++ Compiler V2.27BWIN
IAR.Atmel.AVR.C.EC++.Compiler.V2.27BWIN
IAR.Embedded.Workbench.AVR_v2.27B
IAR.Embedded.Workbench.for.Atmel.AVR32.v2.10B
IAR.Embedded.Workbench.eZ80_v1.15A
IAR.Embedded.Workbench.M32C_v2.10A
IAR.visualSTATE.v5.4
IAR.Embedded.Workbench.for.Atmel.AVR.V4.30F
IAR.Embedded.Workbench.for.Atmel.AVR.V5.10A
IAR.Embedded.Workbench.for.MCS-51.V7.40B
IAR.Embedded.Workbench.for.Freescale.HCS12.V3.11A
IAR.Embedded.Workbench.for.8051.MSC-51.v7.20D
IAR.Embedded.Workbench.for.ARM.v4.42A
IAR.PowerPac.for.ARM.v1.10C
IAR.Embedded.Workbench.for.Atmel.AVR32.v4.20A
IAR.Embedded.Workbench.for.Dallas.Semiconductor.Ma xim.MAXQ.v1.13C
IAR.Embedded.Workbench.for.dsPIC.v1.30A
IAR.Embedded.Workbench.for.MAXQ.v2.10A
IAR.Embedded.Workbench.for.NEC.78K.v4.30A
IAR.Embedded.Workbench.for.Samsung.SAM8.v2.21A
IAR.Embedded.Workbench.for.TI.MSP430.v3.41A
IAR.Embedded.Workbench.for.68HC12.V2.44A
IAR.Embedded.Workbench.for.CR16C.V2.11A
IAR.Embedded.Workbench.for.H8.V1.53I
IAR.Embedded.Workbench.for.MSC-51.v7.21A
IAR.Embedded.Workbench.for.Mitsubishi.740.V2.16A
IAR.Embedded.Workbench.for.Mitsubishi.M32C.V2.11A
IAR.Embedded.Workbench.for.MK5.v1.24A
IAR.Embedded.Workbench.for.MSP430.v3.42A
IAR.Embedded.Workbench.for.NEC.V850.v3.30
IAR.Embedded.Workbench.for.PIC18.V2.12A
IAR.Embedded.Workbench.for.PICmicro.V2.21A
IAR.Embedded.Workbench.for.Renesas.H8.v2.10A
IAR.Embedded.Workbench.for.Renesas.M32C.v3.20
IAR.Embedded.Workbench.for.Renesas.M16C.and.R8C.v3 .21A
IAR.Embedded.Workbench.V3.20.for.Renesas.M16C.and. R8C.v3.20A
IAR.Embedded.Workbench.for.ZiLOG.eZ80.V1.34A
IAR.EW430_V221B
IAR.EWAVR 310C_PRO
IBM.DB2.UDB.ENTERPRISE.EDITION.V8.2
IBM_Lotus_Sametime_Server_v7.5.1
IBM.LOTUS.DOMINO.SERVER.V8.5
IBM.LOTUS.NOTES.CLIENT.V8.5
IBM.LOTUS.NOTES.DOMINO.DESIGNER.AND.ADMIN.CLIENT.V 8.5
IBM.Rational.Solutions.V2003 (3CD)
IBM.Rational.Testmanager.v7.0
IBM.Rational.Robot.v7.0
IBM.Rational.Rose.Modeler.v7.0
IBM.Rational.Rose.Enterprise.v7.0
IBM.Rational.Rose.Data.Modeler.v7.0
ICCV7 for AVR v7.19
ICEM CFD v12
ICEM.Surf.v4.8.0
ICEM.Surf.v4.8.1
ICS.Triplex.ISaGRAF.v5.13.309
IComS.XCAD.2008.Professional.v1.1
IdeaBlade DevForce v3.6.4.1
Idecad 5.14
IDMAN_5.12_build_8_
IDS.ARIS.Design.v6.2.3
Idrisi Andes v15.00
IDRISI.KILIMANJARO.V14.0.1
IES.AnalysisGroup.v3.00.0008
IES.PetroMod.v9.0.SP4 &SP2
IES.PetroMod.v11
IES.ShapeBuilder.v4.00.0012
IES.QuickConcreteWall.v1.50.0009
IES.QuickRFooting.v1.00.0008
IES.QuickRWall.v1.50.0008
IES.VisualAnalysis.v5.50.0021
IES_Virtual_Environment_v5.0
IEZ_Speedikon_M_v6.5.47
iFIX 4.0
Igrafx Process 2003
IHS.Energy.SubPUMP.V7.50
IHS Energy SubPUMP v9.0
IHS Forecaster DEEPE$T 3.7
IHS QUESTOR 9.4
Ilight.Fieldview.V12
ILOG.SOFTWARE.COMPONENTS.SUITE.V5.0 2CD
ILOG_CPLEX_V9.0
ILOG_DBLINK_V5.0
ILOG.Diagram.for.NET.v1.6
ILOG_OPL_STUDIO_V3.7
ILOG_RULES_V7.2
ILOG_SERVER_V5.2
ILOG_SOLVER_V6.0
IMAGINE.AMESim.v4.2.0
Imagineer.Systems.Mocha.for.After.Effects.v2.0.3
Imagineer.Systems.Mokey.v4.1.5
Imagineer.Systems.Monet.v2.1.5
Imagineer.Systems.Motor.v1.5
IMAGINEER_SYSTEMS_MOCHA_V1.5
Image.Line.Fruity.Loops.Studio.XXL.v5.0.2
Imaq vision assistant 7.1
Img2CAD v1.0
IMS.IMSpost.Professional_v7.0e
IMS.IMSpost.Professional.v7.2b
IMSI.CAD.Symbols.v3.MULTiLANGUAGE.SUB100
IMSI DesignCAD 3DMax 18.2
IMSI.DesignCAD.3DMax.19.1
IMSI.TurboCAD.Pro.Platinum.v16.0
IMSI.TurboCAD.Designer.2D.v15.0
IMST Coplan 3.8
IMST.Empire.v4.12
IMST Empire XCcel 5.15
IMST MultiLib 1.07
IMST Topas 3.0
imold 2008 sp2.1 cracked
iMold v8 SP3 for SolidWorks 2008
Impactxoft.IX.Design.Plus.v2.14.0.15
Impactxoft.IX.Mold.v2.14.0.15
Impactxoft.IX.Style.v2.14.0.15
Impactxoft.IX.Suite.v2.14.0.15
IMPROVISION_VOLOCITY_V5.0.2
Impulse.CoDeveloper.Universal.Pro.v3.40.a.1
Impulse.CoDeveloper.Universal.Pro.v3.50.b.2
INDUSOFT.WEB.STUDIO.V6.1.INCL.SP4
Infolytica Magnet 6.22.1
Infolytica Magnet 6.27
Informatix.Piranesi.v.5.1
Informatix MicroGDS Pro 9.0 CAD
Infor.ERP.LN.Enterprise.Server.Extensions.v8.4.1
Infor.ERP.LN.Enterprise.Server.v8.4.1
Infor.ERP.LN.Reporting.Studio.v8.4.1
InfoGraph_InfoCAD_v6.08c
INGLES-GT STRUDL 25
Innovmetric_PolyWorks_v10
Inneo.Startup.Tools.2009
Innovmetric_PolyWorks_v10
InnovEDA.E-Sim.v4.1
InnovEDA.FabFactory.7.0
InnovEDA PowerPCB Suite v4.0
InnovEDA.Visual.HDL.v6.7.8
InnovEDA.Visual.IP.v4.4.1
INPHO.DTMASTER.V1.0.0
INPHO.GVE.V3.5.6
INPHO.MATCH-AT.V4.06
INPHO.MATCH-T.V.4.0
INPHO.ORTHOMASTER.V2.0.0
INPHO.ORTHOVISTA.V4.02
INPHO.SCOP.PLUS.PLUS.V5.3
INSCRIBER_VMP_V4.7_SP8
InstaCode 2006.v7.1.0.100
InstruCalc 5.1
Insightful_S-PLUS_v8.0
Integrated Production Modelling Tookit(IPM) v6.4
Interpex.IXRefrax.v1.11
Interpex.IXRefrax.v1.12
Intergraph PDS8.0
Intergraph SmartPlant 3D v03.00
Intergraph SmartSketch v5.00.21
Intergraph GeoMedia v6.1
Intergraph Intools Engineering Suite v5.2
INTEC.SIMPACK.v8.6.07
Intercorr.Predict.v4.0
INTERCORR.PREDICTPIPE.V3.0
Intel.Parallel.Studio.v1.0
IntelliCAD.Fine.HVAC.9.NG.v6.4.14.2
Interactive.Physics.2005.v8.0.1.0
Intuit.Master.Builder.v2003.SUB100
IntuSoft ICAP4 IsSpice 8.1.6
InTouch 10 & InTouch v9.5
INUS.RAPIDFORM.XOR2
INUS.Technology.RapidForm.v2006
INUS.RAPIDFORMXO.REDESIGN.V1.1.SP1
Inventory 3.0
INVENSYS.SIMSCI.HEXTRAN.V9.1
INVENSYS_SIMSCI_DYNSIM_V4.2.4
INVENSYS.SIMSCI.PIPEPHASE.v9.1
INVENSYS.SIMSCI.PROII.V8.2
Inv.Softworks.LLC.FlexHex.v2.50
IphotoMeasure v3.1.1.4714 RC1
IPIX.Interactive.Studio.v1.4.2
IPM.Petroleum.Expert.v6.3
IPM.Petroleum.Expert.v7.Build128
IRAI.Automgen.with.Automsim.v8.10
IronPROXT ITA v7
IronCAD.v11.0.8955
IronCAD.Inovate.v11.0.8955
Iron.Speed.Designer.v3.2.2.29147
Isatis v4.0
Isee Systems STELLA 9.0.2
Isee Systems iThink 9.0.2
iSIGHT 9.0
ISIGHT-FD.v2.5.5
ISP Design Expert 8.2
isplever7.0
ISYS_DESKTOP_V9
ITASCA_3DEC_V4.0
ITASCA.FLAC3D.V3.0
ITASCA_FLAC_V5.0.355
ITASCA_PFC2D_V3.10.234
ITASCA PFC3D 3.0.192
ITASCA Udec v4.00.153
ITI.SIMULIATIONX.V2.0
ITTVIS.ENVI.v4.5
ITTVIS.IDL.v7.0.6 WIN/LINUX/MACOSX
ITTVIS.IDL.v7.1.x64
IVS.3D.Fledermaus.Professional.v7.0.0a.build.163
IVS.3D.Fledermaus.Professional.v7.0.0b.build.209
Jardin.Et.Paysage.3D 3CD
JDbMonitor.v1.0
JKBench v1.15
JMP.Statistical.Discovery.v5.1.2
JMAG Designer v3.4
JMAG Studio v9.0
Jetstream FX v1.14 for LightWave
Jewelcad v5.12
Jewelcad v5.13
JvMsd 2.0
k-mold 7.1
Kappa Emeraude 2.42.10
KAJIMA.REALS.3D.V2.040426
KEIL.SOFTWARE.8051.V7.0.AND.C16X.ST10.V4.2.PRO.SDK
Keil.Professional.for.C166.v6.11
Keil.Professional.for.C251.v4.53a
Keil.Professional.for.C51.v8.12
keil uvision3
Keil ARM 3.40
Keil C51 8.17a
Keil.C51.v8.18
Keil MDK-ARM v3.24
keil mdk 3.50
keil_MDK 3.70
Keil.RL-ARM.v3.50
Kellyware.KCam.v4.0.39
Kellyware.KCam.v4.0.41
KeepITEasy.Flowol.v2.90
Kinemap Digital Map Software 5.0
KISSsoft 10-2008
KitchenDraw V5.0
Klocwork.Insight.v8.0.7.1
KODAK_PROFESSIONAL_DIGITAL_PRINT_PRODUCTION_SOFTWA RE_V10
Kristall v4.1
Kubotek.KeyCreator.v8.0
Kuka Sim Pro v1.1
LARSA4D v7.01.26
LAMBDARES_TRACEPRO_V3.37F
LAKER.3.2 V3
Laker 301 v4
Laker 32 v3p6 LINUX
Laker 32 v4p1 LINUX/LINUXAMD64
Laker 32 v4P2 LinuxAMD64
Laker AMS v6.1p4
Landcad Eagle Point 2004
Landcad Eagle Point v14
Eagle Point SoftWare 2009 Q1 9.1.0
Landmark Discovery 2007.1
Landmark Geographix 2007.1
Landmark Promax 2003
Landscape Illustrator 2003
Lantek.v27
LaserFiche_v7.2.1
Lattice ispLEVER v7.1.01.34.35.08.SP01 Update
Lattice ispLever 7.2 Win
latticetower1.0.0.1
LatheSim.v1.2.3
Layo1.PCB.Design.Pro.v10.0
LDRA.TESTBED.V7.2
Leap SoftWare Axsys v4.1.0
Leap SoftWare Conspan v3.10
Leap SoftWare Presto v8.6.1
Leap SoftWare Consplice v1.2.2
LeapSoft Conbox v7.0.1
LeapSoft Conspan Rating v7.0.1
LeapSoft Consys v1.3.0
LeapSoft Geomath v7.0.0
LeapSoft RC-Pier v7.0.0

Anything you need,can check: ctrl + f
kela2018@rambler.ru

Converting xls & doc files to Pdf

Wed, 01 Jul 2009 01:12:00 -0700

hi,
i want to convert the xls & doc files to Pdf files. can any body suggest me if there was any perl modules or else any other methods.

Cisco Network Security Little Black Book

Thu, 25 Jun 2009 14:06:55 -0700

Book Description
With this concise, problem-solving guide, networking professionals will learn how to identify network security threat implement uniform security throughout their networks, secure remote dial-in access with CiscoSecure ACS and Cisco IOS AAA features, protect Internet access on their perimeter routers with the CiscoSecure IOS firewall software, and implement secure VPNs using IPSec and Cisco Encryption Technology. Step-by-step instructions and immediate solutions will help administrators implement and update security defenses. Every configuration in this book has been completely tested and perfected with actual Cisco routers.

Link :
http://uploading.com/files/P11DLZKH/Cisco_Network_Security_Little_Black_Book.pdf.htm l
OR
http://hotfile.com/dl/7584094/d283e17/Cisco_Network_Secur ity_Little_Black_Book.pdf.html
http://rapidshare.com/files/248638255/Cisco_Network_Security_Li ttle_Black_Book.pdf

Password default : www.bookitplus.net

perl-mysql compare 2 columns

Wed, 24 Jun 2009 04:27:32 -0700

Hi everybody,
I want to compare 2 tables contents. My tables are:
Table1
------------------
ID || Value
------------------
1 || forum_list1
2 || Message_list1
3 || Search1
4 || Search5
5 || Search11
6 || Log_out
7 || LOG

Table2
--------------------------------------------
ID || Value1 || Value2
---------------------------------------------
1 || rd_forum_list1_no ||
2 || wr_Message_list1_yes ||
3 || rd_Search1_no ||
4 || rd_Search5_no ||
5 || rd_Search11_no ||
6 || rd_Log_out_no ||
7 || rd_LOG_no ||
8 || wr_forum_list1_no ||
9 || rd_Message_list1_yes ||
10 || 123_Search1_456 ||
11 || 123_Search11_456 ||

I want to compare both the tables content and if the contents are similar then place the ID of table no. one in Table2.Value2 but discard all the rows with "wr_". Also note that in case of Search1 and Search11, I want the comaprison very exact as

Table2
--------------------------------------------
ID || Value1 || Value2
---------------------------------------------
1 || rd_forum_list1_no || 1
2 || wr_Message_list1_yes ||
3 || rd_Search1_no || 3
4 || rd_Search5_no || 4
5 || rd_Search11_no || 5
6 || rd_Log_out_no || 6
7 || rd_LOG_no || 7
8 || wr_forum_list1_no ||
9 || rd_Message_list1_yes || 2
10 || 123_Search1_456 || 3
11 || 123_Search11_456 || 5

I tried implementing this by following code:
$query = "SELECT Table1.value, Table2.value1 FROM Table1,Table2 WHERE Table2.value1 LIKE CONCAT('%',Table1.value,'%')";
$result =mysql_query($query) or die(mysql_error());
while(@row = mysql_ftech_array($result))
{
$updatetable2= UPDATE Table2.value2 SET Table2.value2 =(@Table1.value);
}

But its not working.. please help..
thanks in advance

Free Perl eBooks download for you

Sun, 21 Jun 2009 19:23:45 -0700

Here you can free download Free Perl eBooks
http://ebookhouse.org/category/programming/perl/

alpha-num numbering scheme in perl

Sat, 20 Jun 2009 08:35:42 -0700

Hi,
Does anyone know how to get the alpha-numeric numbering scheme in perl ?
For example the
numberic => 0,1,2,...9,10,11,12,...99,100,... # $x = 0;$x++;
lower-alpha => a,b,c,...z,aa,ab,ac,...zz,aaa,... # $x = "a";$x++;
upper-alpha => A,B,C,..,Z,AA,AB,AC,...ZZ,AAA,... # $x = "A";$x++;
lower-alpha-num => a,b,c,...z,0,1,2,3,...9,aa,ab,ac,...zz,10,11,12,.. .99,aaa,... # ?
upper-alpha-num => A,B,C,..,Z,0,1,2,3,...9,AA,AB,AC,...ZZ,10,11,12,.. .99,AAA,... # ?

cvv3@yahoo.com

help me with a perl script

Thu, 18 Jun 2009 05:46:47 -0700

Dear all,

I am new to perl programming. and I need a perl script, the details of which are as follows:

I have more than 350 batch files with an extension .acc in my home directory and on my linux i used the command

./ncbi_blast-2.2.19+/bin/blastdbcmd -db ./seqcap -dbtype prot -entry_batch

with an input file and stating -out for an output file that should have the extension .fasta and also an log file.

I need an perl script that retreives all my files with an extension .acc and uses the above said command and it should give the output in the fasta format and also the log file.

if anyone has the script kindly post to me.

Thanks in advance

help me with a perl script

Thu, 18 Jun 2009 05:46:00 -0700

Launch of TimeLive Time Tracking Solution 2.94.1

Fri, 05 Jun 2009 22:19:52 -0700

Bradenton, Florida - June 5, 2009 --
-------------------------------------
Bradenton, Florida - June 5, 2009 -- The livetecs.com development team today

announced the immediate available version 2.94 of open source of time

tracking software.

The main feature of the new version is a completely re-write of TimeLive with

fully integrated set of tools for managing every aspects of projects.

"We frequently see customers running a dozen applications ranging from

issue-trackers, project management, tasks management, timesheet, time

billing, employee attendance and expense management, each with different GUI

and logins. Our goal is to integrate these applications into a single

system." says founding member of TimeLive.

TimeLive Timesheets is entirely written and architected using Microsoft’s

award winning .NET Framework architecture. TimeLive Timesheets offers an

entirely thin-client interface via Microsoft ASP.NET AJAX, and fully supports

both Internet Explorer and Firefox web browsers. Thus, TimeLive timesheets’

client interface fully supports both Windows (Internet Explorer and Firefox)

and Macintosh (Firefox) computing platforms with no loss of features… even

the same easy-to-use interface is maintained across browsers and operating

system platforms.

The following are some of the details of TimeLive Web 2.91 integrated

modules:

1. Timesheet
2. Time billing
3. Project management
4. Project expense management
5. Task management
6. Issue Tracking
7. Employee Attendance
8. Employee off-days / leaves management
9. Timesheet / expense approvals
10. Project Collaboration tool.
11. Time billing.

For complete detail of TimeLive 2.9 features, visit
http://www.livetecs.com/Solution/Time-tracking-software.aspx

Both hosted (ASP) version and downloadable version (unlimited storage quota)
-----------------------------------------------------------------------------
Both downloadable and hosted version comes with fully functional, free up-to

5 users option. Downloadable version unlimited users license fee is just US$

300 (one time fees). Hosted version price is starting from US$ 25/month for

10 users, US$ 40/month for 25 users and US$ 60/month for unlimited users.

Complete Source code price is just US$ 500.

http://www.livetecs.com/Home/SourceCode.aspx

http://www.livetecs.com/Home/Pricing.aspx

TimeLive is developed using ASP.Net 2 and Microsoft Ajax 1.0. For database,

timelive is using Microsoft SQL Server database.

About Livetecs
---------------
Livetecs LLC team is committed to creating products that assist project

groups in working together more efficiently.

Contact Information
--------------------
Livetecs.com
1903 60th Place E., Suite M4622
Bradenton, FL 34203
United States
sales@livetecs.com
http://www.livetecs.com

Re-install PERL on Vista

Thu, 21 May 2009 01:50:07 -0700

I have re-installed Perl on my Vista home premium.

A perl script executes successfully in the dos window.

However when I try to run a script from a web page, i.e. from localhost, I get the following message ...

Server Error in '/' Application.
Could not load type 'e:\Perl\bin\PerlIS.dll'.

(There is more, which I did not copy).

A bit of history - when I installed the first Perl, it was from a cd and automatically loaded onto the E drive. Since then, I uninstalled that and installed from a web page download.

I have removed the e:... reference from the path in environment variables.

IIS7 works successfully, as do php scripts.

How do I fix this so that it points to the installation on the c drive?

Regards,
John Mckay

Search words in a file

Tue, 19 May 2009 10:44:21 -0700

Hi!
I have got a txt file that have a lot of paragraphs, each paragraph I got a ID number duplicated like ; ".... \ id=ARJFHFHF\....\ id=ARJFHFHF\..."
What I want to do is a program of perl to make a list in another txt file with ALL the ids found in this text file WITHOUT writing it twice each one.
thanks

Perl to C#

Fri, 15 May 2009 06:33:24 -0700

Hi Wisers,

I have a perl script. Can any one do a converiosn of the below code to either C# or VB.NET?

package Geo::Coordinates::RDNAP;

use strict;
use warnings;

use vars qw($VERSION);
$VERSION = '0.11';

use Carp;
use Params::Validate qw/validate BOOLEAN SCALAR/;

use Exporter;
use vars qw/@ISA @EXPORT_OK/;
@ISA = qw/Exporter/;
@EXPORT_OK = qw/from_rd to_rd deg dms/;

sub deg {
my (@in) = @_;
my @out;

while (my($d, $m, $s) = splice (@in, 0, 3)) {
push @out, $d + ($m||0)/60 + ($s||0)/3600;
}
return @out;
}

sub dms {
return map {int($_), int($_*60)%60, ($_-int($_*60)/60)*3600} @_;
}

my %a = (
'01' => 3236.0331637,
20 => -32.5915821,
'02' => -0.2472814,
21 => -0.8501341,
'03' => -0.0655238,
22 => -0.0171137,
40 => 0.0052771,
23 => -0.0003859,
41 => 0.0003314,
'04' => 0.0000371,
42 => 0.0000143,
24 => -0.0000090,
);

my %b = (
10 => 5261.3028966,
11 => 105.9780241,
12 => 2.4576469,
30 => -0.8192156,
31 => -0.0560092,
13 => 0.0560089,
32 => -0.0025614,
14 => 0.0012770,
50 => 0.0002574,
33 => -0.0000973,
51 => 0.0000293,
15 => 0.0000291,
);

my %c = (
'01' => 190066.98903,
11 => -11830.85831,
21 => -114.19754,
'03' => -32.38360,
31 => -2.34078,
13 => -0.60639,
23 => 0.15774,
41 => -0.04158,
'05' => -0.00661,
);

my %d = (
10 => 309020.31810,
'02' => 3638.36193,
12 => -157.95222,
20 => 72.97141,
30 => 59.79734,
22 => -6.43481,
'04' => 0.09351,
32 => -0.07379,
14 => -0.05419,
40 => -0.03444,
);

my %bessel = (
a => 6377397.155,
e2 => 6674372e-9,
f_i => 299.1528128,
);

my %etrs89 = (
a => 6378137,
e2 => 6694380e-9,
f_i => 298.257222101,
);

# Transformation parameters from Bessel to ETRS89 with respect to
# Amersfoort.

my %b2e = (
tx => 593.032,
ty => 26,
tz => 478.741,
a => 1.9848e-6,
b => -1.7439e-6,
c => 9.0587e-6,
d => 4.0772e-6,
);

my %e2b = map {$_ => -$b2e{$_}} keys %b2e;

my @amersfoort_b = ( 3903_453.148, 368_135.313, 5012_970.306 );
my @amersfoort_e = ( 3904_046.180, 368_161.313, 5013_449.047 );

sub from_rd {
croak 'Geo::Coordinates::RDNAP::from_rd needs two or three arguments'
if (@_ !=2 && @_ != 3);

my ($x, $y, $h) = (@_, 0);

croak "Geo::Coordinates::RDNAP::from_rd: X out of bounds: $x"
if ($x < -7_000 or $x > 300_000);
croak "Geo::Coordinates::RDNAP::from_rd: Y out of bounds: $y"
if ($y < 289_000 or $y > 629_000);

# Use the approximated transformation.
# Step 1: RD -> Bessel (spherical coords)

$x = ($x/100_000) - 1.55;
$y = ($y/100_000) - 4.63;

my $lat = (52*60*60) + (9*60) + 22.178;
my $lon = (5 *60*60) + (23*60) + 15.5;

foreach my $i (keys %a) {
my ($m, $n) = split //, $i;
$lat += $a{$i} * ($x**$m) * ($y**$n);
}

foreach my $i (keys %b) {
my ($m, $n) = split //, $i;
$lon += $b{$i} * ($x**$m) * ($y**$n);
}

# Step 2: spherical coords -> X, Y, Z
my @coords = _ellipsoid_to_cartesian($lat/3600, $lon/3600, $h, \%bessel);

# Step 3: Bessel -> ETRS89
@coords = _transform_datum( @coords, \%b2e, \@amersfoort_b );

# Step 4: X, Y, Z -> spherical coords
return _cartesian_to_ellipsoid(@coords, \%etrs89);
}

sub to_rd {
croak 'Geo::Coordinates::RDNAP::to_rd needs two or three arguments'
if (@_ !=2 && @_ != 3);

my ($lat, $lon, $h) = (@_, 0);

# Use the approximated transformation.
# Step 1: spherical coords -> X, Y, Z
my @coords = _ellipsoid_to_cartesian($lat, $lon, $h, \%etrs89);

# Step 2: ETRS89 -> Bessel
@coords = _transform_datum( @coords, \%e2b, \@amersfoort_e );

# Step 3: X, Y, Z -> spherical coords
($lat, $lon, $h) = _cartesian_to_ellipsoid(@coords, \%bessel);

# Step 4: Bessel -> RD'

# Convert to units of 10_000 secs; as deltas from Amersfoort.
$lat = ($lat * 3600 - ((52*60*60) + (9*60) + 22.178))/10_000;
$lon = ($lon * 3600 - ((5 *60*60) + (23*60) + 15.5))/10_000;

my $x = 155e3;
my $y = 463e3;

foreach my $i (keys %c) {
my ($m, $n) = split //, $i;
$x += $c{$i} * ($lat**$m) * ($lon**$n);
}

foreach my $i (keys %d) {
my ($m, $n) = split //, $i;
$y += $d{$i} * ($lat**$m) * ($lon**$n);
}

croak "Geo::Coordinates::RDNAP::to_rd: X out of bounds: $x"
if ($x < -7_000 or $x > 300_000);
croak "Geo::Coordinates::RDNAP::to_rd: Y out of bounds: $y"
if ($y < 289_000 or $y > 629_000);

return ($x, $y, $h);
}

sub _to_rads {
return $_[0] * 2*3.14159_26535_89793 /360;
}

sub _from_rads {
return $_[0] / (2*3.14159_26535_89793) *360;
}

sub _ellipsoid_to_cartesian {
my ($lat, $lon, $h, $para) = @_;

my $sinphi = sin(_to_rads($lat));
my $cosphi = cos(_to_rads($lat));
my $n = $para->{a}/sqrt(1 - $para->{e2}*$sinphi*$sinphi);

return (($n+$h)*$cosphi*cos(_to_rads($lon)),
($n+$h)*$cosphi*sin(_to_rads($lon)),
($n*(1-$para->{e2})+$h)*$sinphi );
}

# Returns (lat, lon, h) in degrees.

sub _cartesian_to_ellipsoid {
my ($x, $y, $z, $para) = @_;

my $lon = atan2($y, $x);

my $r = sqrt($x*$x+$y*$y);
my $phi = 0;
my $n_sinphi = $z;
my $n;
my $oldphi;

do {
$oldphi = $phi;
$phi = atan2($z + $para->{e2}*$n_sinphi, $r);
my $sinphi = sin($phi);
$n = $para->{a}/sqrt(1-$para->{e2}*$sinphi*$sinphi);
$n_sinphi = $n*$sinphi;
} while (abs($oldphi-$phi) > 1e-8);

my $h = $r/cos($phi) - $n;

return (_from_rads($phi), _from_rads($lon), $h);
}

sub _transform_datum {
my ($x, $y, $z, $t, $centre) = @_;

return (
$x + $t->{d}*($x-$centre->[0]) + $t->{c}*($y-$centre->[1])
- $t->{b}*($z-$centre->[2]) + $t->{tx},
$y - $t->{c}*($x-$centre->[0]) + $t->{d}*($y-$centre->[1])
+ $t->{a}*($z-$centre->[2]) + $t->{ty},
$z + $t->{b}*($x-$centre->[0]) - $t->{a}*($y-$centre->[1])
+ $t->{d}*($z-$centre->[2]) + $t->{tz}
);
}

1;
__END__

V Shankar

find word and add words in text file

Tue, 12 May 2009 04:00:28 -0700

Hi, is there any body can help me on this.
i would like to search word in one file (from other file) and if found will be locate in that file, if not will be add to new file.

#!/usr/bin/perl

#Open MPLSIPLIST file
open (MYFILE, "mplsiplist.txt");
$file = <MYFILE>;

#Open ADD/Update file
open (MYADD, "ADD.txt");

open (FILEOUT,">doubleadd.txt");

while ($file) {
$ADDED = <MYADD>;
#looping
if ($ADDED !~ /^#/) {
chomp ($ADDED);

#find duplicate word
$found = ( $file =~ /(\w+)\s+$ADDED\b/gi ) [0];

#Print same word
print FILEOUT "$ADDED!\n";
}else{
#Print to mplsiplist file
print MYFILE "$ADDED!\n";
}
}

Please help

Perl enployment?

Mon, 11 May 2009 13:53:16 -0700

I was wonndering... is it easy to get a job that consists of perl these dayz?

Update a word with Perl after reading a file

Thu, 23 Apr 2009 12:00:02 -0700

Hi I am new to perl..I havae rquire ment as follows
I have file name sample . and the data in the file is

DATE NO_OF_Occurs AMOUNT_IN_DOLLAR
----------- ----------------- --------------------
2-APR-2009 22 4625345

I need to update the dollar modify the dollar amount from "4625345" to "$4625345" . I need to modify this sample file by readaing this file from perl script..

I was able to get the line not able to pick the dollar word to update it, It would be great if some one help me out..

I need to write test.pl which read sample file and update teh dolar to have $ sign

Thanks,
Nav

Request for "Database doctor" please

Sun, 12 Apr 2009 17:22:32 -0700

Hello All,

I'm looking for "Database doctor 4" basic or pro.

http://www.web-bazaar.com/cgi/db_doctor.html

it would be great to have !

please help and share
cheers
Sandra

kamoue@yahoo.com

Request for "Database doctor" please

Sun, 12 Apr 2009 17:21:16 -0700

Hello All,

I'm looking for "Database doctor 4" basic or pro.

http://www.web-bazaar.com/cgi/db_doctor.html

it would be great to have !

please help and share
cheers
Sandra

kamoue@yahoo.com

regular expressions

Wed, 08 Apr 2009 14:00:47 -0700

Hi,

I have a file name which have these lines in the file. I want to compare if the schematic port and layout port are different then I report this file has port name different. Below is my code but it has problem with $1 and $2. How can I get $1 and $2?

thanks,
Tony

while (<INF>) {
$port_session = 1 if ( /port\s*Port class\s*Schematic port\s*Layout port/ ) ;
if ( /\*\s+\d+\s+(\S+) \ (\S+)$/ && $port_session ) {
$mismatch = 1 if ( $1 !~ $2 );
}
}

close(INF);

port Port class Schematic port Layout port
---------- ---------- -------------------- --------------------
L 1 D D
L 4 Q Q
L 6 RST x_6
L 5 SET SET
L 2 XCLK x_3
L 3 XQ XQ

APPLICATION PROCESES

Tue, 07 Apr 2009 12:32:40 -0700

hello everyone i would if i may ask a question before i start programing i was told and advised to learn perl

and before i do my job is networking by the way,never programed in my hole life and i would like to ask if i may and hope that someone qwould take the time to awnser my question what is the processing of perl generaly used for example

application programs

web script ect what is the general use for perl and what is the main arcehtecture behind its usfullness within the programing world and what is it most used for i would like to thankyou for taking the time in reading may mail yours sincerly shadowdevelopment

I have created some PERL tutorials

Tue, 17 Mar 2009 04:33:41 -0700

I have made some PERL tutorials at http://ivoronline.com
so I was hoping if some of you might take a look at them and give me your feedback.

Thanks

Guestbook Perl Script

Mon, 16 Mar 2009 09:23:57 -0700

Hi everyone,
I have can assignment due tonight that involves creating a guestbook. I have already created the HTML form and I can't seem to get my Perl to function properly. It runs through it, I don't get errors. But when it should create the acknowledgment page and the comments page, it doesn't. It just gives me a blank page. Also, it is not storing the data in the comments.txt file at all.

Can anyone help, please?

Here is my code:

#!/usr/bin/perl
#guestbook.cgi - saves form data to a file, and creates
#three different dynamic Web pages
print "Content-type: text/html\n\n";
use CGI qw(:standard -debug);
#prevent Perl from creating undeclared variables
use strict;

#declare variables
my ($fname, $lname, $city, $state, $country, $email, $comments, $data_ok, $msg );

if ($ENV{'REQUEST_METHOD'} eq "POST") {
($fname, $lname, $city, $state, $country, $email, $comments) = get_input();
($fname, $lname, $city, $state, $country, $email, $comments) = format_input();
($data_ok, $msg) = validate_input();
if ($data_ok eq "Y") {
save_to_file();
create_acknowledgment_page();
}
else  {
create_error_page();
}
}
else {
create_comments_page();
}

exit;

#*****user-defined functions*****
sub get_input {
return param('fname'), param('lname'), param('city'), param('state'), param('country'), param('email'), param('comments');
} #end get_input

sub format_input {
#declare and assign values to temporary variables
my ($fn, $ln, $ci, $st, $cou, $com, $e);
($fn, $ln, $ci, $st, $cou, $com, $e) = ($fname, $lname, $city, $state, $country, $comments, $email);
#remove leading and trailing spaces from fname
$fn =~ s/^ +//;
$fn =~ s/ +$//;
#remove leading and trailing spaces from lname
        $ln =~ s/^ +//;
        $ln =~ s/ +$//;
#remove leading and trailing spaces from city
        $ci =~ s/^ +//;
        $ci =~ s/ +$//;
#remove leading and trailing spaces from state
        $st =~ s/^ +//;
        $st =~ s/ +$//;
#remove leading and trailing spaces from country
        $cou =~	s/^ +//;
        $cou =~ s/ +$//;
#remove leading and trailing spaces from email
        $e =~ s/^ +//;
        $e =~ s/ +$//;
#remove leading and trailing whitespace character from comments
$com =~ s/^\s+//;
$com =~ s/\s+$//;
#replace return and new line combination within comments with a space
$com =~ tr/\r\n/ /;
#remove extra spaces from within comments
$com =~ tr/ //s;
return $fn, $ln, $ci, $st, $cou, $com, $e;
} #end format input

sub validate_input {
my $valid ="Y";
my $errormsg;
if ($fname eq "" or $lname eq "" or $city eq "" or $state eq "" or $country eq "" or $email eq "" or $comments eq "") {
$valid = "N";
$errormsg = "complete all items";
}
return $valid, $errormsg;
} #end validate_input

sub save_to_file {
open(OUTFILE, ">>", "comments.txt")
or die "Error opening comments.txt for save. $!, stopped";
print OUTFILE "$fname|$lname|$city|$state|$country|$email|$comme
nts\n";
close(OUTFILE);
} #end save_to_file

sub create_acknowledgment_page {
print "<HTML>\n";
print "<HEAD><TITLE> Guest Book</TITLE></HEAD>\n";
print "<BODY>\n";
print "<H2>$fname $lname, from $city, $state,  thank you for the following \n";
print "comments:<BR><BR>$comments\n";
print "</H2></BODY></HTML>\n";
} #end create_acknowledgment_page

sub create_error_page {
print "<HTML>\n";
print "<HEAD><TITLE>Guest Book</TITLE></HEAD>\n";
print "<BODY>\n";
print "<H2>Please return to the form and \n";
print "$msg.</H2>\n";
print "</BODY></HTML>\n";
} #end create_error_page

sub create_comments_page {
my ($fname_field, $lname_field, $city_field, $state_field, $country_field,  $email_field, $comments_field);

open(INFILE, "<", "comments.txt")
or die "Error opening comments.txt. $!, stopped";

print "<HTML>\n";
print "<HEAD><TITLE>Guest Book</TITLE></HEAD>\n";
print "<BODY>\n";
print "<H2>What other visitors have to say say \n";
print "about our site:</H2>\n";
while (<INFILE>) {

chomp($_);
($fname_field, $lname_field, $city_field, $state_field, $country_field,  $email_field, $comments_field) = split(/\|/, $_);
print "<B>Name:</B> $fname_field $lname_field<BR>\n";
print "<B>City:</B> $city_field<BR>\n";
print "<B>State:</B>$state_field<BR>\n";
print "<B>Country:</B>$country_field<BR>\n";
print "<B>Email:</B>$email_field<BR>\n";
print "<B>Comments:</B> $comments_field<BR>\n";
print "<HR>";
}
close (INFILE);
print "</BODY></HTML>\n";
} #end create_comments_page

Data From HTML Page

Tue, 10 Mar 2009 22:30:34 -0700

Hi All,

I need to parse a web file such as
http://www.abc.com/place/abc.cgi

I need to get data from this file using PERL.
Any help or pointers on this will be of great help.

The link also requires user name name and password.
For user name as password the following code works.
<code>
#!/usr/bin/perl -w

use LWP::UserAgent;
use HTML::TreeBuilder;

# Prepare request.
my $ua = new LWP::UserAgent;
my $req = new HTTP::Request(GET => 'http://www.abc.com/plac/abc.cgi');
$req->authorization_basic("username", "password");

# Request file.
my $res = $ua->request($req);
print $res;

# Check if request was successful.
if ($res->is_success) {

my $file = $response->content;
do stuff with file
} else {
die $res->status_line;
}

</code>

Now after this i want ot read the data from the page.
The page contains data as:
Name Place ID Location

I want to parse Name.

Please provide your valuable input on this.

Regards
developer_p

Question for Jonathan, by the way... long time.

Thu, 05 Mar 2009 18:44:00 -0700

Hi Jonathan,

I'm trying to figure out where the date and time stamps are listed
in a Win32 Application event log. I've figured out how to parse all the rest of the information from Application event logs, but still haven't found the date and time stamps. Do you know if they are kept in an associated file? Let em know if you can help.

Regards,
Old Joe

Web Site Development Dating site

Mon, 02 Mar 2009 15:24:50 -0700

We are a non-profit looking for volunteers to put together a dating site and social networking for the less fortunate. This population needs to communicate as much as any group.

We already have to open source software that needs to setup basis our needs. Would any of your members like to volunteer? Once the site is setup there will be cost for maintenance and the person could receive those revenues overtime.

James B

Mechanize download progress bar

Sat, 14 Feb 2009 10:20:07 -0700

Hello !

Well, how could i manage to set up a progress bar while downloading a file ?

$m->get($content3[0], ":content_file" => $origFile);
That way i download it.
I tried to do this:
get size from downloaded file so far / total file size * 100.
But this dont work because first the file must be downloaded and then the the progress bar goes.

How could i do that while my file is downloading, my progress bar to go like 1%, 5% .. etc.. something like wget

Sorry 4 english ;P