www.webdeveloper.com
Results 1 to 4 of 4

Thread: Reading from files...

  1. #1
    Join Date
    May 2005
    Posts
    502

    Reading from files...

    A while ago I came on here and someone gave me a perl script which reads a text file and displays it on a web page. I need to edit it to only display 25 lines at a time, with links to scroll through the lines.

    I've already written it in ASP, but I'm useless with Perl I used a variable in the query string to tell the script which page to display, and therefore which lines to display.

    Can anyone give me some pointers please?

    PHP Code:
    #! /usr/bin/perl

    use LWP::UserAgent;

    my $ua = new LWP::UserAgent;
    my $req = new HTTP::Request 'GET','http://www.mydomain.co.uk/text.txt';
    my $res $ua->request($req);

    # check that a http error did not occur
    my $file $res->content;
    if (
    $res->is_error)
    $file 'something went wrong: ' $res->status_line;
    }

    my $html = <<_END_HTML_;
    <
    html>
      <
    head>
        <
    title>My Page</title>
        <
    link href="style.css" rel="stylesheet" type="text/css">
      </
    head>
      <
    body>Here are the contents of the file:
        <
    p>$file</p>
      </
    body>
    </
    html>
    _END_HTML_

    print "Content-type: text/html\n\n"$html

  2. #2
    Join Date
    Sep 2004
    Posts
    361
    Try the following:
    call like this: scriptname?numoflines=25


    #!/usr/bin/perl
    use CGI qw(:standard);
    use LWP::UserAgent;

    print header;

    # Create a user agent object
    $base_url ="http://www.mydomain.co.uk/text.txt";

    use LWP::UserAgent;
    my $ua = new LWP::UserAgent;
    $ua->agent("Lathi.net KDA/0.1" . $ua->agent);

    # Create a request
    my $req = new HTTP::Request GET => $base_url;
    $req->content_type('application/x-www-form-urlencoded');
    $req->content('match=www&errors=0');

    # Pass request to the user agent and get a response back
    my $res = $ua->request($req);

    # Check the outcome of the response
    unless ($res->is_success) {
    $res->status_line, "\n";
    }

    @words = split(/\n/, $res->content);
    foreach $line (@words){

    #print title line
    #if($line =~ /<title>/g) {
    #print qq|TITLE:$line<BR>\n|;
    #}
    print qq|line $x:$line<BR>\n|;
    last if $x == param(numoflines);
    $x++;
    }

    If you want only certain lines you'll have to use Regexp

    -Bill

  3. #3
    Join Date
    May 2005
    Posts
    502
    Fantastic, thank you very much!

  4. #4
    Join Date
    Jul 2003
    Location
    The City of Roses
    Posts
    2,543
    $ua->agent("Lathi.net KDA/0.1" . $ua->agent);

    ...

    $req->content_type('application/x-www-form-urlencoded');
    $req->content('match=www&errors=0');
    What is the point of all of this?!

    cusimar9, here's what you would need to do after you've received the response.
    Code:
    my $LINES_PER_PAGE = 25;
    my $page = $cgi->param('page');
    $page = 1 if not defined($page) or $page =~ /\D/ or $page < 1;
    my @lines = ($res->content =~ /^(.*)/gm);
    
    for my $line_n (($page - 1) * $LINES_PER_PAGE .. $page * $LINES_PER_PAGE - 1) {
      print $lines[ $line_n ];
    }
    for(split(//,'))*))91:+9.*4:1A1+9,1))2*:..)))2*:31.-1)4131)1))2*:3)"'))
    {for(ord){$i+=$_&7;grep(vec($s,$i++,1)=1,1..($_>>3)-4);}}print"$s\n";

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
HTML5 Development Center

"

"

X vBulletin 4.2.2 Debug Information

  • Page Generation 0.26863 seconds
  • Memory Usage 2,868KB
  • Queries Executed 13 (?)
More Information
Template Usage (35):
  • (1)SHOWTHREAD
  • (1)ad_footer_end
  • (1)ad_footer_start
  • (1)ad_global_above_footer
  • (1)ad_global_below_navbar
  • (1)ad_global_header1
  • (1)ad_global_header2
  • (1)ad_navbar_below
  • (1)ad_showthread_firstpost_sig
  • (1)ad_showthread_firstpost_start
  • (1)ad_thread_first_post_content
  • (1)ad_thread_last_post_content
  • (1)bbcode_code
  • (1)bbcode_php
  • (1)bbcode_quote
  • (1)footer
  • (1)forumjump
  • (1)forumrules
  • (1)gobutton
  • (1)header
  • (1)headinclude
  • (1)headinclude_bottom
  • (4)memberaction_dropdown
  • (1)navbar
  • (4)navbar_link
  • (1)navbar_moderation
  • (1)navbar_noticebit
  • (1)navbar_tabs
  • (2)option
  • (4)postbit
  • (4)postbit_onlinestatus
  • (4)postbit_wrapper
  • (1)spacer_close
  • (1)spacer_open
  • (1)tagbit_wrapper 

Phrase Groups Available (6):
  • global
  • inlinemod
  • postbit
  • posting
  • reputationlevel
  • showthread
Included Files (26):
  • ./showthread.php
  • ./global.php
  • ./includes/class_bootstrap.php
  • ./includes/init.php
  • ./includes/class_core.php
  • ./includes/config.php
  • ./includes/functions.php
  • ./includes/functions_navigation.php
  • ./includes/class_friendly_url.php
  • ./includes/class_hook.php
  • ./includes/class_bootstrap_framework.php
  • ./vb/vb.php
  • ./vb/phrase.php
  • ./includes/functions_facebook.php
  • ./includes/functions_calendar.php
  • ./includes/functions_bigthree.php
  • ./includes/class_postbit.php
  • ./includes/class_bbcode.php
  • ./includes/functions_reputation.php
  • ./includes/functions_notice.php
  • ./packages/vbattach/attach.php
  • ./vb/types.php
  • ./vb/cache.php
  • ./vb/cache/db.php
  • ./vb/cache/observer/db.php
  • ./vb/cache/observer.php 

Hooks Called (70):
  • init_startup
  • friendlyurl_resolve_class
  • init_startup_session_setup_start
  • database_pre_fetch_array
  • database_post_fetch_array
  • init_startup_session_setup_complete
  • global_bootstrap_init_start
  • global_bootstrap_init_complete
  • cache_permissions
  • fetch_threadinfo_query
  • fetch_threadinfo
  • fetch_foruminfo
  • load_show_variables
  • load_forum_show_variables
  • global_state_check
  • global_bootstrap_complete
  • global_start
  • style_fetch
  • global_setup_complete
  • showthread_start
  • showthread_getinfo
  • strip_bbcode
  • friendlyurl_clean_fragment
  • friendlyurl_geturl
  • forumjump
  • cache_templates
  • cache_templates_process
  • template_register_var
  • template_render_output
  • fetch_template_start
  • fetch_template_complete
  • parse_templates
  • fetch_musername
  • notices_check_start
  • notices_noticebit
  • process_templates_complete
  • friendlyurl_redirect_canonical
  • showthread_post_start
  • showthread_query_postids
  • showthread_query
  • bbcode_fetch_tags
  • bbcode_create
  • showthread_postbit_create
  • postbit_factory
  • postbit_display_start
  • postbit_imicons
  • bbcode_parse_start
  • bbcode_parse_complete_precache
  • bbcode_parse_complete
  • postbit_display_complete
  • memberaction_dropdown
  • tag_fetchbit_complete
  • forumrules
  • navbits
  • navbits_complete
  • build_navigation_data
  • build_navigation_array
  • check_navigation_permission
  • process_navigation_links_start
  • process_navigation_links_complete
  • set_navigation_menu_element
  • build_navigation_menudata
  • build_navigation_listdata
  • build_navigation_list
  • set_navigation_tab_main
  • set_navigation_tab_fallback
  • navigation_tab_complete
  • fb_like_button
  • showthread_complete
  • page_templates