Category: Misc

Perl – Sort associative array by value

July 8, 2009

Here’s an alpha sort of the values of the associative array named “myarray”:

foreach my $key (sort {$myarray{$a} cmp $myarray{$b}} keys %myarray) {
        print "$key : " . $myarray{$key} . "\n";
};

foreach my $key (sort {$myarray{$a} cmp $myarray{$b}} keys %myarray) {

print "$key : " . $myarray{$key} . "\n";

};

And here’s the same sort numerically:

foreach my $key (sort {$myarray{$a} <=> $myarray{$b}} keys %myarray) {
        print "$key : " . $myarray{$key} . "\n";
};

foreach my $key (sort {$myarray{$a} <=> $myarray{$b}} keys %myarray) {

print "$key : " . $myarray{$key} . "\n";

};

And if you want numeric descending:

foreach my $key (sort {$myarray{$b} <=> $myarray{$a}} keys %myarray) {
        print "$key : " . $myarray{$key} . "\n";
};

foreach my $key (sort {$myarray{$b} <=> $myarray{$a}} keys %myarray) {

print "$key : " . $myarray{$key} . "\n";

};

Of course don’t forget how to sort keys:

foreach my $key (sort keys %myarray) {
        print "$key : " . $myarray{$key} . "\n";
};

foreach my $key (sort keys %myarray) {

print "$key : " . $myarray{$key} . "\n";

};

And a numerical sort of keys:

foreach my $key (sort {$a<=>$b} keys %myarray) {
        print "$key : " . $myarray{$key} . "\n";
};

foreach my $key (sort {$a<=>$b} keys %myarray) {

print "$key : " . $myarray{$key} . "\n";

};

MS-SQL 2000 : Truncate transaction log

June 17, 2009

Execute the following commands:

DBCC SHRINKFILE(pubs_log, 2)
BACKUP LOG pubs WITH TRUNCATE_ONLY
DBCC SHRINKFILE(pubs_log,2)

DBCC SHRINKFILE(pubs_log, 2)

BACKUP LOG pubs WITH TRUNCATE_ONLY

DBCC SHRINKFILE(pubs_log,2)

This will reduce the transaction log for the “pubs” database to 2MB.

LFTP mirror script

May 13, 2009

Here’s a very handy script to mirror a site via ftp with lftp:


#!/bin/bash

lftp -c 'open -e "set ftp:list-options -a; mirror -a --parallel=10 -v fromdir/ ./todir" -u user,pass host'

#!/bin/bash

lftp -c 'open -e "set ftp:list-options -a; mirror -a --parallel=10 -v fromdir/ ./todir" -u user,pass host'

And here’s a mirror in the opposite direction:


#!/bin/bash

lftp -c 'open -e "set ftp:passive-mode false; set ftp:list-options -a; mirror -a --parallel=1 --reverse -v  fromdir/ ./todir" -u user,pass host'

#!/bin/bash

lftp -c 'open -e "set ftp:passive-mode false; set ftp:list-options -a; mirror -a --parallel=1 --reverse -v fromdir/ ./todir" -u user,pass host'

Making Plesk More PCI Complient

May 11, 2009

Here’s a great article that describes some of the things that can be done to make a plesk server pass PCI compliance scans: http://www.linux-advocacy.org/web-servers/making-plesk-more-pci-compliant

Exclude Directroy From CPanel Backup

May 6, 2009

Create cpbackup-exclude.conf in the user’s home directory (/home/user-id) to exclude files from a cPanel backup. This file is only used if you make a complete site back up from cPanel. Here are the basic rules for the content of the file: Each item to skip must be on it’s only line in the file. Directories should not have a trailing slash. Each entry must have the full path to the file or directory.