## autogdb.pl## Author : Lionetti Salvatore <salvatorelionetti@yahoo.it># License: GPL## Let to debug usu module simply typing 'make autogdb'#!/usr/bin/perl -W # Return .text .data .bss for a given modulesub tbd() {	my ($modulo_name)=@_;	my @uscita;	# Discard final .ko	$modulo_name =~ s/\.ko//;	# For each section parse addr & memo.	foreach ('.text', '.bss', '.data') {			my $sezione=$_;		my $baseadd;		my $fileName="/sys/module/$modulo_name/sections/$sezione";		(`cat $fileName` =~ /^(0x[0-9a-fA-F]*)/) && ($baseadd=oct($1)); 		push @uscita,$baseadd;	}	@uscita;}#print "($ARGV[0])";die "Usage: prog module_name." if (!defined $ARGV[0]);my ($text_badd, $bss_badd, $data_badd)=&tbd("$ARGV[0]");my $FILEGDB;#unlink "cmd.gdb";open FILEGDB,">cmd.gdb" or die 'Non riesco a create il file cmd.gdb';printf FILEGDB "\nfile /usr/src/linux-source-2.6.15/vmlinux\n";printf FILEGDB "core-file /proc/kcore\n";printf FILEGDB "add-symbol-file $ARGV[0] 0x%x -s .bss 0x%x -s .data 0x%x\n",$text_badd,$bss_badd,$data_badd; close FILEGDB;