? Earlier 8 items total Later ?

On this page:?

Measure the daily number of E-mail messages in a mailbox

This snippet written in bash with calls to perl from the command line measures the number of E-mail messages sent to a mailbox per calendrical day.

#!/bin/bash
grep -h '^Date:' * |
    perl -pe 's!^Date: !!' |
    perl -pe 's!^\w\w\w, !!' |
    perl -pe 's{\d{2}:\d{2}:\d{2}.*$}{}' |
    perl -pe 's!^\s+!!' |
    perl -pae '$_=sprintf("%.2d-%s-%s\n", @F)' |
    sort | uniq -c | sort -n


I used perl for some places where sed would have been more suitable because I find the sed regexp syntax confusing. :-)
to email date perl shell bash mime day mailbox by shlomif on Sat Dec 03 16:28:01 GMT 2005

Pretty darn good Email validator

This regular expression was written by a friend of mine according to the email spec RFC2822. It should be near 100% coverage of email addresses assuming no leading or trailing whitespace, and no internal linebreaks (you might try 's' at the end to remedy the line break thing but no guarantees).

/^[-^!#$%&'*+\/=?`{|}~.\w]+@[a-zA-Z0-9]([-a-zA-Z0-9]*[a-zA-Z0-9])*(\.[a-zA-Z0-9]([-a-zA-Z0-9]*[a-zA-Z0-9])*)+$/
to php email perl regex address regular expression regexp rfc2822 by dasil003 on Fri Oct 28 20:31:07 GMT 2005

Extract hrefs and link text from html

while (/href=(["']?)([\/:a-zA-Z0-9%_\-+.,:!@#$%^&*()\[\]<>?=]+?)\1>(.*?) $3\n";
    }
to perl regex by ryouga on Tue Sep 27 06:16:50 GMT 2005

Perl find and replace

perl -i.bak -pe "s/Old text/New text/g" file1 file2 file3


-i: the extension to append to the backup of the original file (omit the .bak for no backup)
to perl by jblomberg on Tue Aug 16 18:52:07 GMT 2005

Improved admin_tools for Scoop

If you've ever built a site with Scoop, you know that all that messy hard-coded table-based HTML can be a pain. In the course of building several Scoop sites I've been reworking some of the common boxes to use cleaner, easily-styled, semantic markup, and this seems as good a place as any to post the code.

Here's a reworked admin_tools which outputs as an unordered list (and puts the "edit user" form in a definition list):

my $content;
my @tools = sort { $a->{pos} <=> $b->{pos} } values %{ $S->{ADMIN_TOOLS} };
foreach my $t (@tools) {
        if ( $S->have_perm($t->{perm}) ) {
                $content .= qq\|
        
  • $t->{menuname}
    • \|;
        }
}
if ($S->have_perm('edit_user')) {
 $content .= qq{
  • 
 
    
 
    
 
    Edit User:
    
 
    
 
 
 
 
 
    
 
    
 
    
 
    • };
}
return '' unless $content;
return{content=>qq{
      $content
    }};
    to perl scoop by ubernostrum on Sat May 28 04:51:56 GMT 2005

    Improved user_box for Scoop

    If you've ever built a site with Scoop, you know that all that messy hard-coded table-based HTML can be a pain. In the course of building several Scoop sites I've been reworking some of the common boxes to use cleaner, easily-styled, semantic markup, and this seems as good a place as any to post the code.

    Here's a reworked user_box which outputs the tools menu as an unordered list:

    my $content;
if ($S->{UID} > 0) {
  if ($S->have_perm('moderate')) {
    my ($nstories, $tstories) = $S->_count_new_sub();
    my $color = '';
    my $c_end = '';
    if ($nstories) {
       $color = '';
       $c_end = '';
    }
    $content = qq\|\|;

    $title = $S->{NICK};
} else {
    $content = $S->{UI}->{BLOCKS}->{login_box};
    $content =~ s/|LOGIN_ERROR|/$S->{LOGIN_ERROR}/;
}
return {content => $content, title => $title };
    to perl scoop by ubernostrum on Sat May 28 04:47:24 GMT 2005

    Parse comma separated data

    Import data in CSV format. Normally an easy task using split but sometimes, the fields will have comma's enclosed by quotes.
    Something like.
    Aaron, "123 Main St, USA", 555-555-1212
    Assuming your string gets put into $text.
        my @new  = ();
    push(@new, $+) while $text =~ m{
        # the first part groups the phrase inside the quotes.
        # see explanation of this pattern in MRE
        "([^\"\\]*(?:\\.[^\"\\]*)*)",?
           |  ([^,]+),?
           | ,
       }gx;
       push(@new, undef) if substr($text, -1,1) eq ',';

    Taken from Jeffrey Friedl's Mastering Regular Expressions
    to perl regex by aaron on Thu May 26 05:52:59 GMT 2005

    Encode and Decode strings from URL.

    Encode a string so that it's safe to be passed in a url. Equivalent of urlencode in PHP.
    $str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;


    Now, the reverse, decode a string from a url. Equivalent of urldecode in PHP.
    $str =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;

    to perl regex by aaron on Thu May 26 05:39:07 GMT 2005

    ? Earlier 8 items total Later ?