01-27-2009
Change
_______________________
shift @dn; pop @dn;
print '"'.(join '","', "@dn", # row map
_______________________
To
_______________________
shift @dn; pop @dn;
map {$_ =~ s/"//} @dn;
print '"'.(join '","', "@dn", # row map
_______________________
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi
I have a log file, I am having problem with "if else" loop in my perl script which does, find a string in that file ,If that string is found append to success.txt else append it to failed.txt.
problem is: else part of loop it is not working
I am adding problem part of the script.
... (4 Replies)
Discussion started by: amitrajvarma
4 Replies
2. Shell Programming and Scripting
hi
one perl issue i have xml file with 2 values and one condition b.w them
<rule>
<val1>12</val1>
<cond>and</cond>
<val2>13</val2>
</rule>
i read these values in hash in perl code
$one{val1} = 12
$one{cond} = and
$one{val2} = 13
now i want to form... (3 Replies)
Discussion started by: zedex
3 Replies
3. Shell Programming and Scripting
Please help me with my script please. I am trying to do the following:
1. Read files for the current directory
2. Open and read from nbe files files only
3. Read only the lines with the results pattern
4. Split the line and print 3rd field
Please indicate what line I need to modify. ... (8 Replies)
Discussion started by: jroberson
8 Replies
4. Shell Programming and Scripting
Hello. I've been writing some code in Perl to read in strings from html files and have been having issues. In the html file, each "paragraph" is a certain file on the website. I need to find every one of the files that is a certain type, in this case, having green color....therefore... (7 Replies)
Discussion started by: akreibich07
7 Replies
5. Shell Programming and Scripting
Hi Team,
the Following program execute with out error but the out is not save with create2.txt. kindly help me!!!
print "Enter your Number \n";
my $name = <STDIN>;
if ($name =="*91111*")
{
@dirlist1 = `wc -l $name > create2.txt`;
}
else {print "do not match";} (3 Replies)
Discussion started by: adaleru
3 Replies
6. Shell Programming and Scripting
Hi,
Please could someone advise on a perl command :
export ENVPROP="$HOME/cfg/environment.properties.template"
export LM_LICENSE=`awk -F= '!/^#/ && /LM_LICENSE/{print $2}' environment.properties`
echo $LM_LICENSE
$DATA_FILE/licenses/sample.demo.lic
perl -i -npe... (1 Reply)
Discussion started by: venhart
1 Replies
7. Shell Programming and Scripting
Hi,
I have a menu script written in PERL which calls some shell scripts and displays the return.
I'm having a problem with OPEN. A section of the code is below:
`./scriptlist.ksh 1`;
open OUTPUT, "</home/$SCRIPTUSER/output";
{
local $/ = undef;
$_ =... (2 Replies)
Discussion started by: chris01010
2 Replies
8. Shell Programming and Scripting
Input : day :15 and count -100
printf ("%6.6ld %10.10s %s\n",day,count)
any idea what would be the format it will be. (3 Replies)
Discussion started by: ramkumar15
3 Replies
9. Shell Programming and Scripting
I am getting a out of memory issue while executing the perl program.
Per version : /opt/acc_perl/lib/site_perl/5.14.2
Read in 54973 total records
Read in 54973 table records from table.
Out of memory!
so the job get failed due to out of memory. need to get rid of the out of memory... (3 Replies)
Discussion started by: ramkumar15
3 Replies
10. Programming
I have a perl that is sending emails in a bad format:
"begin 644 Included.doc
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BH*4U5#0T534T953"!-1$XG<R!F;W(@07)C:&EV92!022`M
M($-A;F-E;`HJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ... (1 Reply)
Discussion started by: mrn6430
1 Replies
LEARN ABOUT OSX
map_slippy
map::slippy(n) Mapping utilities map::slippy(n)
__________________________________________________________________________________________________________________________________________________
NAME
map::slippy - Common code for slippy based map packages
SYNOPSIS
package require Tcl 8.4
package require Tk 8.4
package require map::slippy ?0.3?
::map::slippy length level
::map::slippy tiles level
::map::slippy tile size
::map::slippy tile valid tile levels ?msgvar?
::map::slippy geo 2tile geo
::map::slippy geo 2point geo
::map::slippy tile 2geo tile
::map::slippy tile 2point tile
::map::slippy point 2geo point
::map::slippy point 2tile point
_________________________________________________________________
DESCRIPTION
This package provides a number of methods doing things needed by all types of slippy-based map packages.
API
::map::slippy length level
This method returns the width/height of a slippy-based map at the specified zoom level, in pixels. This is, in essence, the result
of
expr { [tiles $level] * [tile size] }
::map::slippy tiles level
This method returns the width/height of a slippy-based map at the specified zoom level, in tiles.
::map::slippy tile size
This method returns the width/height of a tile in a slippy-based map, in pixels.
::map::slippy tile valid tile levels ?msgvar?
This method checks whether tile described a valid tile in a slippy-based map containing that many zoom levels. The result is a bool-
ean value, true if the tile is valid, and false otherwise. For the latter a message is left in the variable named by msgvar, should
it be specified.
A tile identifier as stored in tile is a list containing zoom level, tile row, and tile column, in this order. The command essen-
tially checks this, i.e. the syntax, that the zoom level is between 0 and "levels-1", and that the row/col information is within the
boundaries for the zoom level, i.e. 0 ... "[tiles $zoom]-1".
::map::slippy geo 2tile geo
Converts a geographical location at a zoom level (geo, a list containing zoom level, latitude, and longitude, in this order) to a
tile identifier (list containing zoom level, row, and column) at that level.
::map::slippy geo 2point geo
Converts a geographical location at a zoom level (geo, a list containing zoom level, latitude, and longitude, in this order) to a
pixel position (list containing zoom level, y, and x) at that level.
::map::slippy tile 2geo tile
Converts a tile identifier at a zoom level (tile, list containing zoom level, row, and column) to a geographical location (list con-
taining zoom level, latitude, and longitude, in this order) at that level.
::map::slippy tile 2point tile
Converts a tile identifier at a zoom level (tile, a list containing zoom level, row, and column, in this order) to a pixel position
(list containing zoom level, y, and x) at that level.
::map::slippy point 2geo point
Converts a pixel position at a zoom level (point, list containing zoom level, y, and x) to a geographical location (list containing
zoom level, latitude, and longitude, in this order) at that level.
::map::slippy point 2tile point
Converts a pixel position at a zoom level (point, a list containing zoom level, y, and x, in this order) to a tile identifier (list
containing zoom level, row, and column) at that level.
REFERENCES
[1] http://wiki.openstreetmap.org/wiki/Main_Page
KEYWORDS
geodesy, geography, latitute, location, longitude, map, slippy, zoom
map 0.3 map::slippy(n)