Ionut's WebSpace » Perl http://www.vioan.ro/wp Exploring Creativity Is My Passion Wed, 05 Oct 2011 14:28:28 +0000 http://wordpress.org/?v=2.8.4 en hourly 1 Calling Gnuplot from Perl http://www.vioan.ro/wp/2008/09/30/calling-gnuplot-from-perl/ http://www.vioan.ro/wp/2008/09/30/calling-gnuplot-from-perl/#comments Tue, 30 Sep 2008 21:18:31 +0000 ionut http://www.vioan.ro/wp/?p=163 In my previous post I discussed how to call Gnuplot from C and Python language. If you are using Perl, then, here is the script:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

#!/usr/bin/perl
# Generate postscript and png plot with GNUplot from Perl
# Author: Ioan Vancea
# Usage: Give "data file" as an argument for script
 
use strict;
use warnings;
 
my $file = ARGV[0];
 
# POSTSCRIPT
open (GNUPLOT, "|gnuplot");
print GNUPLOT <<EOPLOT;
set term post color "Courier" 12
set output "$file.ps"
set size 1 ,1
set nokey
set data style line
set xlabel "frequency" font "Courier,14"
set title "Fast Fourier Transform" font "Courier,14"
set grid xtics ytics
set xtics 100
plot "$file" using 1:2 w lines 1
EOPLOT
close(GNUPLOT);
 
# PNG
open (GNUPLOT, "|gnuplot");
print GNUPLOT <<EOPLOT;
set term png small xFFFFFF
set output "$file.png"
set size 1 ,1
set nokey
set data style line
set xlabel "frequency" font "VeraMono,10"
set title "Fast Fourier Transform" font "VeraMono,10"
set grid xtics ytics
set xtics 100
plot "$file" using 1:2 w lines 1
EOPLOT
close(GNUPLOT);
]]> http://www.vioan.ro/wp/2008/09/30/calling-gnuplot-from-perl/feed/ 1 How to install a Perl module http://www.vioan.ro/wp/2007/07/31/how-to-install-a-perl-module/ http://www.vioan.ro/wp/2007/07/31/how-to-install-a-perl-module/#comments Tue, 31 Jul 2007 09:19:01 +0000 ionut http://www.vioan.ro/wp/?p=14 1. Download, extract, cd into directory

2. Compile & Install

perl Makefile.PL
    make
    make install

the second method can be:

perl -MCPAN -e shell
    install modulename
]]> http://www.vioan.ro/wp/2007/07/31/how-to-install-a-perl-module/feed/ 0 Generating passwords with Perl http://www.vioan.ro/wp/2007/07/31/generating-passwords-with-perl/ http://www.vioan.ro/wp/2007/07/31/generating-passwords-with-perl/#comments Tue, 31 Jul 2007 09:04:09 +0000 ionut http://www.vioan.ro/wp/?p=9 DES:

mkpasswd
  perl -e 'printf "%s\n", crypt("pass", "two-letter-salt")'

MD5:

mkpasswd --hash=md5
perl -e 'printf "%s\n", crypt("pass", "\$1\$6-8-letter-salt\$")'

PLAIN-MD5:

perl -MDigest::MD5 -e 'printf "{PLAIN-MD5}%s\n", Digest::MD5::md5_hex("pass")'

DIGEST-MD5:

perl -MDigest::MD5 -e 'printf "{DIGEST-MD5}%s\n", Digest::MD5::md5_hex("user:realm:pass")'
]]> http://www.vioan.ro/wp/2007/07/31/generating-passwords-with-perl/feed/ 0 Play a MP3 list over HTTP http://www.vioan.ro/wp/2007/07/29/play-a-mp3-list-over-http/ http://www.vioan.ro/wp/2007/07/29/play-a-mp3-list-over-http/#comments Sun, 29 Jul 2007 10:14:59 +0000 ionut http://www.vioan.ro/wp/?p=29 All my mp3s are stored on my filesever. Normally I just mount the mp3 directory on my current workstation (either via NFS or Samba). I have some playlists too which store all files with relative paths (relative to the playlist location). This works fine.

But sometimes I want to have an easy way to listen to a playlist without mounting anything (eg. when using the laptop). So I made the mp3 files and playlists available on my local Apache webserver and use the following short CGI to get a playlist with http adresses to the file.

#!/usr/bin/perl

$WEBDIR = '/var/www';
$WEBSERVER = 'xerxes';

use CGI;
use File::Basename;

print "Content-type: audio/x-mpegurlrnrn";

$q = new CGI();

$list = $q->param('list');
$dir  = dirname($list);
$list = $WEBDIR.'/'.$list;

open (LIST, $list) or die("Could not read $list");
@m3u = <LIST>;
close LIST;

foreach $file (@m3u){
 $file = 'http://'.$WEBSERVER.$dir.'/'.$file;
 chomp($file);
 print "$filen";
}
]]> http://www.vioan.ro/wp/2007/07/29/play-a-mp3-list-over-http/feed/ 0