【特集】ペルセウス座流星群　2008年8月12～13日

夏の定番天文現象と言えば、ペルセウス座流星群です。極大は8月12日ごろで、月が沈み放射点が高くのぼる夜半過ぎが観察に適しています。

Error trace

fileparse(): need a valid pathname at /app/script/../lib/Ads.pm line 286.
 at /usr/lib/x86_64-linux-gnu/perl-base/Carp.pm line 289

in Carp::croak at /usr/lib/x86_64-linux-gnu/perl-base/Carp.pm line 289

  286:     shortmess_heavy(@_);
  287: }
  288: 
  289: sub croak   { die shortmess @_ }
  290: sub confess { die longmess @_ }
  291: sub carp    { warn shortmess @_ }
  292: sub cluck   { warn longmess @_ }

Show function arguments

$_[0]

'fileparse(): need a valid pathname'

in File::Basename::fileparse at /usr/lib/x86_64-linux-gnu/perl-base/File/Basename.pm line 28

   25: 
   26:   unless (defined $fullname) {
   27:       require Carp;
   28:       Carp::croak("fileparse(): need a valid pathname");
   29:   }
   30: 
   31:   my $orig_type = '';

Show function arguments

$_[0]

undef

in File::Basename::basename at /usr/lib/x86_64-linux-gnu/perl-base/File/Basename.pm line 106

  103:   # character present in string (after first stripping trailing slashes)
  104:   _strip_trailing_sep($path);
  105: 
  106:   my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
  107: 
  108:   # From BSD basename(1)
  109:   # The suffix is not stripped if it is identical to the remaining

Show function arguments

$_[0]

undef

in Ads::render at /app/script/../lib/Ads.pm line 286

  283:         my $tx = Text::Xslate->new(path => 'template');
  284:         my $extension;
  285: 
  286:         $extension = basename($self->stash->{image});
  287:         if ($extension =~ m!\.([^\.]+)\Z!) {
  288:                 $extension = lc($1);
  289:         }

Show function arguments

$_[0]	'Ads=HASH(0x55df267a8c28)'
$_[1]	'charset'
$_[2]	'euc-jp'

in Ads::embed_html at /app/script/../lib/Ads.pm line 253

  250:         my $rec = $self->pickup_row(\@rows);
  251:         $self->stash(%$rec);
  252: 
  253:         return $self->render(charset => $code);
  254: }
  255: 
  256: # power�����潟���������ゅ���篏������������若�����潟�����������≪��������

Show function arguments

$_[0]

'Ads=HASH(0x55df267a8c28)'

in Ads::run at /app/script/../lib/Ads.pm line 110

  107:                 return $self->ads_check;
  108:         }
  109: 
  110:         return $self->embed_html;
  111: }
  112: 
  113: sub ads_go {

Show function arguments

$_[0]

'Ads=HASH(0x55df267a8c28)'

in Ads::run_psgi at /app/script/../lib/Ads.pm line 90

   87:         my $env = shift;
   88:         my $req = Plack::Request->new($env);
   89:         my $app = $cls->new(req => $req);
   90:         $app->run;
   91:         return $app->res->finalize;
   92: }
   93:

Show function arguments

$_[0]	'Ads'
$_[1]	'HASH(0x55df267a46e8)'

in Plack::Sandbox::_2fapp_2fscript_2fads_2epsgi::__ANON__ at /app/script/ads.psgi line 8
```
    5: 
    6: my $app = sub {
    7:         my $env = shift;
    8:         return Ads->run_psgi($env);
    9: };
```
Show function arguments
$_[0] 'HASH(0x55df267a46e8)'

in Plack::Middleware::Lint::call at /app/local/lib/perl5/Plack/Middleware/Lint.pm line 24

   21:     my $env = shift;
   22: 
   23:     $self->validate_env($env);
   24:     my $res = $self->app->($env);
   25:     return $self->validate_res($res);
   26: }
   27:

Show function arguments

$_[0]	'Plack::Middleware::Lint=HASH(0x55df246440e8)'
$_[1]	'HASH(0x55df267a46e8)'

in Plack::Middleware::StackTrace::try {...} at /app/local/lib/perl5/Plack/Component.pm line 50

   47: sub to_app {
   48:     my $self = shift;
   49:     $self->prepare_app;
   50:     return sub { $self->call(@_) };
   51: }
   52: 
   53:

in (eval) at /app/local/lib/perl5/Try/Tiny.pm line 100

   97:     if ( $wantarray ) {
   98:       @ret = $try->();
   99:     } elsif ( defined $wantarray ) {
  100:       $ret[0] = $try->();
  101:     } else {
  102:       $try->();
  103:     };

in Plack::Middleware::StackTrace::call at /app/local/lib/perl5/Try/Tiny.pm line 93

   90: 
   91:   # failed will be true if the eval dies, because 1 will not be returned
   92:   # from the eval body
   93:   my $failed = not eval {
   94:     $@ = $prev_error;
   95: 
   96:     # evaluate the try block in the correct context

Show function arguments

$_[0]	'Plack::Middleware::StackTrace=HASH(0x55df24643d40)'
$_[1]	'HASH(0x55df267a46e8)'

in Plack::Component::__ANON__ at /app/local/lib/perl5/Plack/Component.pm line 50

   47: sub to_app {
   48:     my $self = shift;
   49:     $self->prepare_app;
   50:     return sub { $self->call(@_) };
   51: }
   52: 
   53:

Show function arguments

$_[0]

'HASH(0x55df267a46e8)'

in Plack::Middleware::AccessLog::call at /app/local/lib/perl5/Plack/Middleware/AccessLog.pm line 27

   24:     my $self = shift;
   25:     my($env) = @_;
   26: 
   27:     my $res = $self->app->($env);
   28: 
   29:     if ( ref($res) && ref($res) eq 'ARRAY' ) {
   30:         my $content_length = Plack::Util::content_length($res->[2]);

Show function arguments

$_[0]	'Plack::Middleware::AccessLog=HASH(0x55df251ff000)'
$_[1]	'HASH(0x55df267a46e8)'

in Plack::Component::__ANON__ at /app/local/lib/perl5/Plack/Component.pm line 50

   47: sub to_app {
   48:     my $self = shift;
   49:     $self->prepare_app;
   50:     return sub { $self->call(@_) };
   51: }
   52: 
   53:

Show function arguments

$_[0]

'HASH(0x55df267a46e8)'

in (eval) at /app/local/lib/perl5/Plack/Util.pm line 145

  142: sub run_app($$) {
  143:     my($app, $env) = @_;
  144: 
  145:     return eval { $app->($env) } || do {
  146:         my $body = "Internal Server Error";
  147:         $env->{'psgi.errors'}->print($@);
  148:         [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];

in Plack::Util::run_app at /app/local/lib/perl5/Plack/Util.pm line 145

  142: sub run_app($$) {
  143:     my($app, $env) = @_;
  144: 
  145:     return eval { $app->($env) } || do {
  146:         my $body = "Internal Server Error";
  147:         $env->{'psgi.errors'}->print($@);
  148:         [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];

Show function arguments

$_[0]	'CODE(0x55df251fef58)'
$_[1]	'HASH(0x55df267a46e8)'

in Twiggy::Server::_run_app at /app/local/lib/perl5/Twiggy/Server.pm line 310
```
  307:         }
  308:     }
  309: 
  310:     my $res = Plack::Util::run_app $app, $env;
  311: 
  312:     if ( ref $res eq 'ARRAY' ) {
  313:         $self->_write_psgi_response($sock, $res);
```
Show function arguments
$_[0] 'Twiggy::Server=HASH(0x55df2553b928)'
$_[1] 'CODE(0x55df251fef58)'
$_[2] 'HASH(0x55df267a46e8)'
$_[3] 'GLOB(0x55df267aa240)'

in (eval) at /app/local/lib/perl5/Twiggy/Server.pm line 152

  149: 
  150:         local $@;
  151:         unless ( eval {
  152:             if ( my $env = $try_parse->() ) {
  153:                 # the request data is already available, no need to parse more
  154:                 $self->_run_app($app, $env, $sock);
  155:             } else {

in Twiggy::Server::__ANON__ at /app/local/lib/perl5/Twiggy/Server.pm line 151

  148:         };
  149: 
  150:         local $@;
  151:         unless ( eval {
  152:             if ( my $env = $try_parse->() ) {
  153:                 # the request data is already available, no need to parse more
  154:                 $self->_run_app($app, $env, $sock);

Show function arguments

$_[0]	'GLOB(0x55df267aa240)'
$_[1]	'172.18.0.33'
$_[2]	50708

in AnyEvent::Socket::__ANON__ at /app/local/lib/perl5/x86_64-linux-gnu-thread-multi/AnyEvent/Socket.pm line 1266

 1263:             AnyEvent::fh_unblock $fh; # POSIX requires inheritance, the outside world does not
 1264: 
 1265:             my ($service, $host) = unpack_sockaddr $peer;
 1266:             $accept->($fh, format_address $host, $service);
 1267:          }
 1268:       };
 1269:    }, $prepare

in AnyEvent::Loop::one_event at /app/local/lib/perl5/x86_64-linux-gnu-thread-multi/AnyEvent/Loop.pm line 248

  245:                while (/1/g) {
  246:                   # and use the resulting string position as fd
  247:                   $_ && $_->[2]()
  248:                      for @{ $fds->[W][(pos) - 1] || [] };
  249:                }
  250:             }
  251:          }

in AnyEvent::CondVar::Base::_wait at /app/local/lib/perl5/x86_64-linux-gnu-thread-multi/AnyEvent/Impl/Perl.pm line 46

   43: sub now { $AnyEvent::Loop::NOW }
   44: 
   45: sub AnyEvent::CondVar::Base::_wait {
   46:    AnyEvent::Loop::one_event until exists $_[0]{_ae_sent};
   47: }
   48: 
   49: sub io {

Show function arguments

$_[0]

'AnyEvent::CondVar=HASH(0x55df25817c48)'

in AnyEvent::CondVar::Base::recv at /app/local/lib/perl5/x86_64-linux-gnu-thread-multi/AnyEvent.pm line 2031

 2028:          and Carp::croak "AnyEvent::CondVar: recursive blocking wait attempted";
 2029: 
 2030:       local $WAITING = 1;
 2031:       $_[0]->_wait;
 2032:    }
 2033: 
 2034:    $_[0]{_ae_croak}

Show function arguments

$_[0]

'AnyEvent::CondVar=HASH(0x55df25817c48)'

in Twiggy::Server::run at /app/local/lib/perl5/Twiggy/Server.pm line 599

  596:     $self->register_service(@_);
  597: 
  598:     my $w; $w = AE::signal QUIT => sub { $self->{exit_guard}->end; undef $w };
  599:     $self->{exit_guard}->recv;
  600: }
  601: 
  602: package Twiggy::Writer;

Show function arguments

$_[0]	'Twiggy::Server=HASH(0x55df2553b928)'
$_[1]	'CODE(0x55df251fef58)'

in Plack::Handler::Twiggy::run at /app/local/lib/perl5/Plack/Handler/Twiggy.pm line 17
```
   14:     eval "require $class";
   15:     die if $@;
   16: 
   17:     $class->new(%{$self})->run($app);
   18: }
   19:     
   20: 
```
Show function arguments
$_[0] 'Plack::Handler::Twiggy=HASH(0x55df254e8948)'
$_[1] 'CODE(0x55df251fef58)'
in Plack::Loader::run at /app/local/lib/perl5/Plack/Loader.pm line 84
```
   81: 
   82: sub run {
   83:     my($self, $server) = @_;
   84:     $server->run($self->{app});
   85: }
   86: 
   87: 1;
```
Show function arguments
$_[0] 'Plack::Loader=HASH(0x55df24326b40)'
$_[1] 'Plack::Handler::Twiggy=HASH(0x55df254e8948)'

in Plack::Runner::run at /app/local/lib/perl5/Plack/Runner.pm line 279

  276:     $loader->preload_app($app);
  277: 
  278:     my $server = $self->load_server($loader);
  279:     $loader->run($server);
  280: }
  281: 
  282: 1;

Show function arguments

$_[0]

'Plack::Runner=HASH(0x55df240b4860)'

at /app/local/bin/plackup line 7

    4: 
    5: my $runner = Plack::Runner->new;
    6: $runner->parse_options(@ARGV);
    7: $runner->run;
    8: 
    9: __END__
   10:

星を見る・宇宙を知る・天文を楽しむ AstroArts

星空ガイド

【特集】ペルセウス座流星群　2008年8月12～13日

メニュー

流星がたくさん見えるワケ

流星をたくさん見るコツ

関連リンク

Error trace

製品情報

星ナビ
2024年11月号
10月4日発売

ステラナビゲータ12
最新版 12.0f

ステラショット3
9月27日 3.0jリリース

ステライメージ9
最新版 9.0o

ステラLiteシリーズ

星空ナビ

天文講習会

天文ツアー

ギャラリー

惑星を撮影しよう

デジタル一眼
天体写真入門

星空ガイド

紫金山・アトラス彗星

土星

10月の見どころ

$_[0]	'Plack::Handler::Twiggy=HASH(0x55df254e8948)'
$_[1]	'CODE(0x55df251fef58)'

$_[0]	'Plack::Loader=HASH(0x55df24326b40)'
$_[1]	'Plack::Handler::Twiggy=HASH(0x55df254e8948)'

星空ガイド

【特集】ペルセウス座流星群 2008年8月12～13日

メニュー

関連リンク

Error trace

星ナビ2024年11月号10月4日 発売

ステラナビゲータ12最新版 12.0f

ステラショット39月27日 3.0jリリース

ステライメージ9最新版 9.0o

【特集】ペルセウス座流星群　2008年8月12～13日

星ナビ
2024年11月号
10月4日発売

ステラナビゲータ12
最新版 12.0f

ステラショット3
9月27日 3.0jリリース

ステライメージ9
最新版 9.0o