perl - Can I display the output of MySQL using CGI? -


Hello, I've written a program in Perl using the DBI module. Can I display the output of MySQL using CIG? If so please help me.

Program: 

  #! Use / usr / bin / perl -w DBI; Print "content-type: text / html \ n \ n"; $ Db_handle = DBI- & gt; Connect ("dbi: mysql: database = CYP1B1; host = localhost: 192.168.3.93;") or die "could not connect to the database: $ DBI :: errstr \ n"; $ Sql ​​= "Select from BPCG"; $ Statement = $ db_handle-> Ready ($ sql) or die "query '$ sql' could not be created: $ DBI :: errstr \ n"; $ Statement-> Execute () or die "query '$ sql' could not be executed: $ DBI :: errstr \ n"; Print "Location \ tNucleotidechange \ tAmenoacidchange \ n"; While (($ location, $ Nucleotidechange, $ Aminoacidchange) = $ statement- & gt; fetchrow_array ()) {Print "$ location $ Nucleotidechange $ Aminoacidchange \ n"; } $ Db_handle- & gt; Disconnect ();

You have a CGI script that is close enough that you do not have any HTML output However, it is different from the output space, change your content type to 'text / plain'.

You need a webserver to run your CGI script, see something about Lighttpd or apache and how to setup CGI scripts (for example,). Sorry, nothing is very useful on that, the topic of establishing a webserver is very complex, but hopefully some search terms will set you in the right direction.

Alternatively, keep in mind that this is not a modern way to write something for the web if you are probably looking for (really to quickly solve a problem), then I suggest Let me know that you learn a framework such as the catalyst (on CPAN). There is a lot more work for you, but whatever you are trying to do it will be easy to do for a long time.


Comments

Post a Comment

Popular posts from this blog

python - Overriding the save method in Django ModelForm -

I'm having trouble overriding a ModelForm save method. I get this error I'm: Exception type: TypeErier Exception Value: Save () found an unexpected keyword argument 'committed' My intentions include a form 3 fields Submit several values ​​for, then create an object for each combination of those areas, and to save each object file models.py class collarsult type (models.Model): id = model. AutoField (db_column = 'icontact_result_code_type_id', primary_key = true) callResult = models.ForeignKey ( 'CallResult', db_column = 'icontact_result_code_id') campaign = models.ForeignKey ( 'campaign', db_column = 'icampaign_id') CALLTYPE = models.ForeignKey ( 'CALLTYPE', db_column = 'icall_type_id') agent = models.BooleanField (db_column = 'bagent', default = true) teamLeader = models.BooleanField (db_column = 'bTeamLeader', default = true) active = models.BooleanField (db_column = Django.form...
Read more

html - CSS autoheight, but fit content to height of div -

I have a div in which there are three children- div in the left and middle div: float: left while true: float: true because it is my layout Actually will spoil, I've used ClearFix Hack: .cf {zoom: 1; }. Cf: First,. Cf: {content: ""; Display: Table; }. Cf: After {clear: both; } It still works, but I want to be the right div an indicator. So it should fill 100% of the parent unit of height. How can I complete this? PS is the full code: & Lt; / Div & gt; & Lt; Div class = "mobile_content" & gt; & Lt; H5 & gt; {{Data.titel}} & lt; / H5> & Lt; Table & gt; & Lt; TR & gt; & Lt; Th & gt; Komponist: & lt; / Th & gt; & Lt; TD & gt; {{Data.komponist}} & lt; / TD & gt; & Lt; / TR & gt; & Lt; TR & gt; & Lt; Th & gt; Instrument: & lt; / Th & gt; & Lt; TD & gt; {{Data.instrumente}} & lt; / TD & gt; & Lt; / TR & gt;...
Read more

qt - How to prevent QAudioInput from automatically boosting the master volume to 100%? -

I have been trying to use Qt5 multimedia to record audio with QAudioInput, however, when I see If QAudioInput is started, it increases the master volume of my sound device to 100%. How can I prevent QAudioInput from changing the master volume? My current development platform is Linux with PalsAdio (with flat audio disabled). How can I use QAudioInput : QAudioDeviceInfo device_info = QAudioDeviceInfo :: defaultInputDevice (); QAudio format format; Format.setSampleRate (44100); Format.setChannelCount (1); Format.setSampleSize (16); Format.setCodec ("Audio / PCM"); Format.setSampleType (QAudioFormat :: SignedInt); Format.setByteOrder (QAudioFormat :: LittleEndian); Std :: cout & lt; & Lt; Device_info.deviceName (). ToUtf8 (). ConstData () & lt; & Lt; Std :: endl; QAudioInput * default_device = new QAudioInput (device_info, format); QIODevice * default_io_device = default_device-> Start (); a QAudioInput.setVolume () method is not you I ...
Read more