http://qs321.pair.com?node_id=359933

<head> <link href="http://www.tagcloud.com/cloud/css/Perl/default" rel="stylesheet" type="text/css"> </head>
#!/usr/bin/perl
use ExtUtils::MakeMaker;
$Verbose = 1;

$CC = 'g++  -Wno-deprecated ';

# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
    'NAME'      => 'StorageManager',
    'OBJECT' => 'StorageManager.o',
    'VERSION_FROM' => 'StorageManager.pm', # finds $VERSION
    'LIBS'      => '-L.  -L../  -L/apps/mysql/lib -L/apps/svit/mysql/lib -L../mysqlplus/l\
ib   -L../diffutils-2.8.1/lib  -L../patch-2.5.4 -L../diffutils-2.8.1/src  -L../martin -lSt\
orage -lsqlplus -lmysqlclient  -lDiff   -ldiffutils  -lPatch -lMartin -lstdc++ -lrt',   #\
 e.g., '-lm'
    'DEFINE'    => '',     # e.g., '-DHAVE_SOMETHING'
    'INC'       => '-I/usr/include/mysql -I../diffutils-2.8.1/src -I../diffutils-2.8.1 -I.\
./diffutils-2.8.1/lib -I../patch-2.5.4  -I../',     # e.g., '-I/usr/include/other'
    'CC'        => $CC,
    'LD'        => '$(CC)',
    #'LINKTYPE' => 'static',
    'XSPROTOARG'        => '-noprototypes',
    'TYPEMAPS'  => 'perlobject.map' ,
    'realclean' => {'FILES' => 'perl'},
    'CFLAGS' => '',
    'LDFLAGS'  => '-L/usr/common/lib  -Wl',
 #   'LDDLFLAGS' => '-shared -L/usr/common/lib',
 #   'CCFLAGS' =>'-D_BSD_TYPES -D_BSD_TIME -I/usr/common/include -DLANGUAGE_C',
    'OPTIMIZE' => '-O2'

);
<body> <script language="JavaScript" type="text/javascript" src="http://www.tagcloud.com/cloud/js/Perl/default"></script> </body> <puzzle> Tue May 25 17:28:14 2004

Looking for algorithm to find minimum distance between any given 2 points in the following graph. (You can see pattern to extend it).

--------------------------------01------

---------------------------------|------

------------------------02------03------04------

-------------------------|-------.-------|------

----------------05------06------07------08------09------

-----------------|-------.-------|-------.-------|------

--------10------11------12------13------14------15------16------

---------|-------.-------|-------.-------|-------.-------|------

17------18------19------20------21------22------23------24------25------



Note: You can travel between horizontal points (one unit). You can
travel vertical only if there is | symbol. ie..
A. from 12 to 15 it is 3 unit minimum
B. from 12 to 20 it is 1 unit minimum
C. from 12 to 6 it is 3 unit minumum ( 12-13-07--06)


Given above data,
What would be the forumla to find the distance between any two points.

Example: from 6 to 21 => Distance is 5. ( 6-7-13-12-20-21)

Stillness in Perl
To think
RE: My life as a monk, day 1.
The fine art of database programming
Tricks with DBI
How do I use Perl Monks?
Simple Module Tutorial
Interfacing Instruments through serial port and parllel port through PERL
Parsing your script's command line
WWW::Mechanize and checkboxes
Update the current region/buffer in Emacs via Perl
BrowserUk
Perlmonks Related Scripts
Perlmonks Related Scripts
PerlMonks CSS Examples
PerlMonks.org Related Scripts
Tick-tock
Personal Nodelet Extractor
epoptai
epoptai
epoptai
Saints in our Book
Code Smarter
Perl Job
noisy sunset
No \G for s///g ?
Scratch Pad Viewer
The Virtue of Silence
The fine art of database programming
Before asking a database related question ...
Re: Re: Algorithms, Datastructures and syntax
Updating and Linking Old Nodes
Updating and Linking Old Nodes
Updating and Linking Old Nodes
The True Catacombs of Perlmonks
user variables
im2
im2
What is MD5 Hashing and Why is it Important?
Netscape/Mozilla Mailbox Processing
Finding the 0 reply fields
Answer: How do I pick a random line from a file?
Displaying User Info
stephen
The New Super Search
gmax
XML Conversion of Tables
XML Conversion of Tables
XML Conversion of Tables
On testing...
The Joy of Test
Easy test management
Masem
Rules-based Perl?
Re: Search Algorithm
Of Symbol Tables and Globs
XML::Simple
Yesterday's most-visited nodes
Learning Perl?
Internet Printing
OT: What's Your Soundtrack?
Litmus test: It's ok to roll your own if...
Re: Using a config file in my regexp script.
Bulk HTML Munging
Bulk HTML Munging
Manipulating plaintext within HTML
Possible HTML::TokeParser::Simple Bug
HTML::TokeParser- Meta Tags
Seeking HTML parsing examples
jptxs
Playing MP3 file?
Playing MP3 file?
Automated Path Coverage Test Case Generation
(OT) Employee Retention - Why do you stay, why do you go?
On being a browser
Is this the right way to learn?
MIME Attachment Extractor
email and MIME?
MIME Attachment Extractor
One-off mime splitter
Modules that you want to know but haven't used yet
web-based application or desktop application?
Does an idea have value?
POD in 5 minutes
Testing modules and methods while waiting for Santa
Perl, Chess, Lies, Dam Lies and Statistics
Mixing Mysql and Perl
The "Principled Programming" Project
Matching positions with lookarounds
Matching positions with lookarounds
File Records
Climbing the corporate ladder
Code and html separation - always or mostly doable?
Programming is combat
FAQ: How to add "Nodes You Wrote" to your personal nodelet
User Settings
User Settings
How To Survive In Maintaince Programming (ACK! NO!)
Keeping, and advancing in, your job
XML::XSLT problem