Win <-> Lin

[Alexander Jeliazkov]

sofia-pm-list - An official of Sofia's Perl hackers
Alexander Jeliazkov <sas at bitex.com>
anio at webgroup-bg.com wrote:

>sofia-pm-list - An official of Sofia's Perl hackers
>anio at webgroup-bg.com
>Zdraveite.Imam problem s parsvaneto na edin konfig.Izpolzvama modula
>Tie::File zashtoto s nego mi e po-lesno.Konfiga e sas sledniq format:
>#################
># SMTP Server Host
>SMTPHost = 'mail.somehost.com'
>
>#################
># MAIL Recipient
>Recipient = 'recipient at somehost.com'
>
>vzimam parametrite taka:
>
>tie @smtp_settings, 'Tie::File', $smtp_file;
>for (@smtp_settings) {
>   chomp;
>   next if /^#/;
>   next if /^$/;
> if (/^(\w+)\s=\s'(\S+)'/) {
>   $smtp_host     = $2 if ($1 eq 'SMTPHost');
>   $recipient     = $2 if ($1 eq 'Recipient');
>   $reverse_path  = $2 if ($1 eq 'Reverse');
> }
>}
>
>Vsi4ko raboti i pod Windows i pod Linux, no kogato smenq Config fila ot
>Win format na Linux ("\r\n" -> "\n") i vsi4ko se obyrkva.Ne moje da vzeme
>nito edna ot nastroikite.Molq pomognete.Kajete kak da go napravq
>universalno i formata na SMTP_config na nqma zna4enie za parsera.
>Blagodarq vi.
>  
>

tie @smtp_settings, 'Tie::File', $smtp_file, autochomp => '1';