Har börjat med ett litet projekt i perl som ska läsa in rfid taggar ifrån en usb ansluten rfid läsare.
Läsaren kommer bli en modell som emulerar ett tangenbord, och kan lätt läsas ifrån så länge programmet körs direkt på en inloggad session på servern.
Problemet som jag redan ser innan jag ens köpt läsaren är att jag inte vill logga in på server fysiskt efter omstart eller strömavbrott för att starta en session och dra igång mitt program.
Mitt script ser ut såhär för tillfället för att jämnföra "vad som kommer vara en rfid tag" emot taggarna i mysql databasen.
Kod: Markera allt
#!/usr/bin/perl -w
use strict;
while (1) {
print "Input card number: ";
my $card = <STDIN>;
chomp $card;
print "\n\n";
# Connect and get all unique id's for the active cards.
use DBI;
my $dbh = DBI->connect('dbi:mysql:databasen','root','lösenord,')
or die "Connection Error: $DBI::errstr\n";
my $sql = "select id, valid from userinfo";
my $sth = $dbh->prepare($sql);
$sth->execute
or die "SQL Error: $DBI::errstr\n";
my @row;
while (@row = $sth->fetchrow) {
if ($row[0] == $card) {
print "$row[0] exists in database!\n\n";
if ($row[1] eq 1) {
print "and is valid\n\n";
}
else {
print "but not valid\n\n";
}
}
}
}
Kod: Markera allt
my $card = <STDIN>;
chomp $card;Så jag tex skulle kunna dra igång scriptet via ett startscript eller via ssh, utan att ha "tangenbordet" kopplat till en fysisk session.
Vad vet jag, det kanske funkar utmärkt med det scriptet, men jag tänkte ställa frångan innan jag köper en läsare.
