rozie@dukgo.com

Ludziom zdarza się wysyłać SMSy. Założenie jest takie, by w możliwie małej objętościowo formie (koszt, limity wysłanych przez bramkę, łatwość odczytu przez odbierającego) przekazać maksimum informacji. Szczególnie przy okazji awarii takich, jak wczorajsza w Szczecinie warto minimalizować objętość. ;) Poniższy skrypt przedstawia sposób na skrócenie długości wiadomości w SMSach wysyłanych za pomocą polecenia sms z pakietu sms-pl (wersje na inne dystrybucje i systemy do znalezienia we własnym zakresie, ale opisany niżej algorytm jest uniwersalny i można go z powodzeniem stosować do wszystkich SMSów.

Oryginalnie algorytm (podejrzany u jednej ze znajomych) polega na usunięciu spacji i zastąpieniu następujących po nich liter na wielkie. Poniżej zaimplementowana jest wersja rozwinięta - spacja jest usuwana, jeśli po niej następują 2 małe litery (zakładam nie używanie polskich znaków diakrytycznych w treści - wielkość SMS przy ich użyciu drastycznie puchnie). Pierwsza z liter zamieniana jest na wielką. Czytelność nie ulega znacznego pogorszeniu - odbiorca wie, gdzie kończą się wyrazy. Przykład przetworzonego tekstu: OryginalnieAlgorytm (podejrzany uJednejZeZnajomychPolegaNaUsunieciuSpacji iZastapieniuNastepujPoNichLiterNaWielkie PoniżejZaimplementowanaJestWersjaRozwinieta -SpacjaJestUsuwanaJesliPoNiejNastepuja 2MaleLitery Pierwsza zLiterZamienianaJestNaWielka Z 291 znaków do 249, czyli ok. 15% zredukowany rozmiar.

A oto i sam skrypt:

 
#!/usr/bin/perl -w
 
# Script to shorten SMS message by removing spaces if they're followed by lowercase letter followed by given number of lowercase characters.
# The first letter is made uppercase to make message readible.
# Required installed && configured sms from sms-pl package (Debian)
# Author: Paweł 'Róża' Różański; JID: rozie@jabber.wp.pl
# Usage: ./shortsms.pl <number> "message body"
 
use strict;
 
my $minlower=1;                 # here define how may lowercase characters must be after [a-z] to uppercase first character
my $sms=`which sms`;
 
if ($#ARGV != 1){
        die 'Usage: ./shortsms.pl <number> "message body"';
}
 
my $number=shift @ARGV;
chomp $sms;
 
my $body='"';
foreach (@ARGV){
        my @nospace=split/\s/;
        foreach(@nospace){
                if (/^([a-z])([a-z]{$minlower,})/){
                        $body.= uc($1).$2
                }
                else{
                        $body.= " ".$_;
                }
        }
}
$body.='"';
print "Will send SMS to: $number\n";
print "Body will be:\n";
print "$body\n";
 
system ("$sms $number $body");
if ($? == 0){
        print "Send OK\n";
}
else{
        print "Error occured while sending.\n"
}
 

Skrypt nie jest idiotoodporny. Zakłada brak pl-znaków, podanie poprawneg numeru jako pierwszego argumentu, ujęcie treści w cudzysłów i skonfigurowany pakiet sms-pl (ja ślę tym tylko do plusa, wtedy nie wymaga konfiguracji). Można łatwo dopisać, ale... ;) Aby sobie potestować pez wysyłania wystarczy zakomentować linię z system. Have fun.