This function tries to locate a file in a give folder (either single level, or in any sub folder). Returns the relative file and path, or FALSE if not found. Skips over "." and "..".

Digest::MD5 is core from 5.8.

Usage:
found('asdf',@array);

P.S. In perl 5.10 can be written as
use 5.010;
'asdf'~~@array;

This is a Tiny PHP Uploading script. It SHOULD be safe from both really large files and non-image files.

Use this utility to grab lines from a file. Arguments are the input file, starting ling number and ending line number.

This function simply splits a file based on the splitter supplied and returns an array with the values. It's pretty much like the file() function. This script could be helpful in section editings.

Function to capitalize the first letter in every word in a string, but only if the entire string is in ALL CAPS.

Example:
"I LIKE TO SCREAM" becomes "I Like To Scream"
"I LIKE to RUN" remains "I LIKE to RUN".

I've found it kind of complicated to strip newline chars from a file with just the commandline. This tiny piece of code does just that.

I've found it especially useful when extracting tabulated data from a grabbed site where each cell is on a different html line. This way I can pre-filter the html, remove the newlines, and insert them again at register boundaries (row end in this case), so that with just a couple more replacement from within a regex enabled text editor I can copy&paste it directly to a database.

Customizable recursive directory scanner.

What is Dijkstra Algorithm? click on the link above and first understand what the algorithm is all about. in short it calculates the shortest path from A to F or vise versa. This code i can guarantee is the simplest and easiest code to understand. just search on google and try to compare this code and other dijkstra code and you will see what i am talking about. i spent alot of time myself and my instructor to guide me on the rite path.
http://en.wikipedia.org/wiki/Dijkstra%27s_algorithm(Description)
to see how the algorithm really works go on this website it tells you step by step how to update the cost and which path to choose.
http://renaud.waldura.com/doc/java/dijkstra/
Please give some time to understand the algorithm first and then you can see my code. if you done understand the algorithm it is very useless. i know alot of people need Dijkstra algorithm in java for their HW assignment or Test. i am giving you the solution step by step. anyone who wants to understand please go to the url i have posted above and once you have understand then run the code and for those people who just want to copy so that they can get 90% in their test No Problem Here it is .
First open a notepad and name that file anything like data.txt or datas.txt and make sure the file looks something like this and in this format.
0 3 100 5 100 100 (100 represents infinity)
3 0 6 7 7 100
100 6 0 5 5 3
5 7 5 0 1 100
100 7 5 1 0 2
100 100 3 100 2 0
i name this file as a data.txt file. i have 6 nodes. and A is always the starting node which has the cost of 0 so by looking at the first line i
know that A to A have distance 0, A to B is 3, A to c is Infinity, A to D is 5, A to E is Infinity(means no edge connected with A), A to F is Infinity.
for second line(B to A is 3, and then vise versa) and for the 3rd line it starts for C and etc..
save the txt file by any name and then copy the code which i have posted and then to run type this:
javac routing.java
java routing data.txt
you will get the output. i will say this one more time understand how the algorithm works or ......................

This perl function will output to a file of your choosing the current localtime as defined by perl's localtime function. It will output the date in ISO 8601 date format plus the current localtime such as:
2006-08-21 09:26:35 am
The function also returns the localtime without the date to the calling environment.

Write a set of bytes into a 'so-called' binary file. The point is that we use BinaryWriter here and we have a byte array as input.

This function loads an File into an String.

A database API written in Perl for a MySQL.

You will need to edit the settings for your server.

Enojy

A little function that returns a greeting based on the local time.

Simple function to check for a valid email address. Makes sure the @ and a . are in the right place. There is most likely a perl package on CPAN that would be more extensive, but this happens to work for my uses.

Just a simple check to make sure that a person's email address matches their domain.

For example .. in a form you have 2 textboxs .. 1 for their website url, the other for their email address. This checks to see if the domains for the email address and the website url match.

Write a set of bytes into a so-called binary file. The point is that we use BinaryWriter here and we have a byte array as input.

This is a little example of how to use threads in Perl. It creates three threads and runs them... That's it...

Prints the user's IP address and localtime on a web page.

Class method to read a binary file and copy it to a byte array.

Need to GZip a file using Perl?

Use Compress::Zlib.

This is a simple perl script which creates a GZip file.

Is this file the same as that file? The files may or may not be binary. We could compare the modify dates, or the sizes. But, those are not very accurate to know if a file has really changed.

Introducing MD5 Checksum. We can feed the files into Digest::MD5 in binary mode.

This is a great way to do Incremental Backups.

This is also an easy way to verify checksums when downloading files from the internet which list their MD5 Checksums.

You'll need the Digest::MD5 Perl Module.

Copies files from nested folders into one source, flat directory.

Deletes all files of a certain extention from a folder.

Move a file quickly in java.

in the normal GZIPOutputStream you can not et the compression level. I came across this little script tonight that allows you to set the compression level for GZIPOutputStream.

Copy a file to a new location, optionally marking the file as a temporary file (to be deleted on application exit).

Note there are issues for temporary files - not all the parent directories that might be created are guaranteed to be deleted - only the immediate parent directory will be deleted on exit if created. Other higher-level directories will not be deleted, even if the file is marked as temporary.

The docs for Compress::Zlib for perl are very complex. But, the most simple use of the Module is not too bad. I've waded through the perdoc so you don't have to.

Gunzip.pl is here. I will let you know when I have Gzip.pl done.

You can do something more interesting with "success" variable.

This requires Win32::API, and Win32::Clipboard.
Only works on Win32 Platforms. Only really tested on Win2000, and WinXP.

Not meant to be an be all, end all, but it's a start.

Have fun!

Check the attributes of a file or folde

Retrieve information about a file

this function returns the aggregated size
of all files in a directory and its subdirectories

Checks to see if a file or folder exists
The fFile variable determines whether you're
looking for a File (True) or Folder(False)
The strName variable holds the fully qualified
path you're looking For

I needed a quick way to make a Street Address and City proper case.
Lingua::EN::NameCase works best for peoples names, but it does not work well for Addresses. This is not intended by any means to be complete, but is quick and dirty.

Plus, there are not many Perl snippets here. So, I thought I would start simple :-)

Set's a filter for what files to accept when using JFileChooser.

Locks a minimim size to a dialog or panel.

File CheckSum

Get the Size of a Folde

Implementation of file_put_contents for PHP4

Find File

Open a File For Input

Get File Size

Get File Extensio