Recent content by martinasv

Hi! I wrote this little peace of code, which is supposed to check if a certain database exists, and if not, create one. (Maybe there's a much better way to do it, but I don't know it) Anyway, here's the code: use DBI; $username = 'root';$password = '';$database = 'tina'; $hostname = ''; if...

I've managed to do it this way: use DBI; $username = 'root';$password = '';$database = 'tina'; $hostname = ''; $dbh = DBI->connect("dbi:mysql:database=$database;" . "host=$hostname;port=3306", $username, ) or $result=`mysqladmin -u root create tina`; Basically, it's doing what I wanted, but...

Hi, everyone! Is there a way to create a database using Perl? I've been searching the Net, and all examples I came across were for connecting to an existing database. I tried using: $result=$dbh->createdb("dbname"), but it returns an error: Can't call method createdb on an undefined value...

Hi, everyone! I was wondering... If I write: # yum install mysql ... # yum install mysql-server ... Is DBI installed together with those, or do I have to install it separately? Tnx.

OK, I'll try that.

Hello guys and gals! I have a perl script which captures ARP packets on the network. Right now I'm starting it from command-line and stopping it with Ctrl-C. But, I'd like to start it and stop it from perl/CGI stript (HTML page, Start and Stop buttons). I know I could start it using...

Wow, that's great! You helped a lot. (I had to change this just a little bit: instead of capital "S+", it has to be "s+"). But, I couldn't have done it without you! [sunshine]

Hi! This is one of the lines I get when I use nbtscan to detect computers' NetBIOS name: 192.153.1.5 STARI <server> STARI 00-c0-df-13-66-49 I'd like to parse that line in such way that I store IP address to variable $ip and NetBIOS name "STARI" to variable $nbt...

Tnx! :-)

I know eq and ne operators are for comparing strings. But what I can't figure out is how to extract the value (or name) and put it in a variable so I can do something with it. Something tells me I should maybe use "param()", but I don't know how.

How do I check their value? [ponder]

Hi! If I have two submit buttons in one form (like shown below), how do I get the "name" part in a variable to be able to use it with "if" statement? print "<br>"; print "<form>"; print "<input type=submit name=update value=\"Write NIC name\" >"; print "<font align=middle>OR</font>"; print...

Tnx! The first option is what I wanted. :-) But I'm new to all these stuff, so I'm constantly posting questions on this forum.

Is it possible to write HTML form in perl so that the action points to a subroutine in the same script? E.g. print "<form action=\"do_something()\">"; where do_something is a subroutine?

After adding those lines and trying it out, a thought came to me... There is no action specified in my form, so Submit calls upon this same script, but it loses information about MAC along the way. That's why mysql statement in the end looks like this: update table set nameMAC='something'...